显示led 数字的perl程序
来源:互联网 发布:网络接入控制综述 编辑:程序博客网 时间:2024/06/13 09:45
#!/usr/bin/perl -w
use strict;
open FONT, "font.txt";
chomp(my @font = <FONT>);
close FONT;
my @led = map { s/(.{4})/$1,/g; split /,/ } @font;
chomp(my $num = <>);
my @n = split //, $num;
for (0..6) {
for my $n(@n) {
print $led[$n+10*$_];
}
print "/n";
}
_____________font.txt_____________
-- -- -- -- -- -- -- --
| || | || || | || || |
| || | || || | || || |
-- -- -- -- -- -- --
| || | | | || | || | |
| || | | | || | || | |
-- -- -- -- -- -- --
- 显示led 数字的perl程序
- Android实现LED数字显示
- [ACM]在命令行以LED样式显示输入的数字
- 基于Qt Gui的Led控制显示程序
- 基于Qt Gui的Led控制显示程序
- 基于Qt Gui的Led控制显示程序
- 匹配空格和数字的perl小程序
- WPF自定义LED风格数字显示控件
- LED数码管的显示
- apache中perl cgi程序显示源代码的问题解决方法
- java绘制点阵数字(LED数字显示),转载源码
- java绘制点阵数字(LED数字显示)
- led循环显示程序(基于mini2440)
- lithium的LED显示法
- perl的cgi程序
- perl的有趣程序
- 单片机编程:让led数码管显示数字0到9
- LED显示屏幕芯片控制器程序,有这方面的专家吗?
- 怎样用C#实现完整文档打印功能
- OA系統開發總結
- 计算机考试系列介绍
- Mysql 5.0 Replication 说明
- 使用CURL库访问代理服务器
- 显示led 数字的perl程序
- Tomcat配置的十大技巧(转载)
- 今年5月份
- 让爱传出去,这个世界真的需要爱..
- 手生了
- 为找工作的同学提供一些大公司的招聘地址。都是本人花时间整理的。一定要看哟:)
- Makefile 制作步骤
- 利用C++语言设计可扩展线程池
- raid的简介与做法