此博客展示了一段Perl代码，代码从font.txt文件读取内容，对其进行处理，然后根据用户输入的数字，将对应的字符组合输出。主要运用了Perl的文件操作、字符串处理和循环等功能。
#!/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_____________
-- -- -- -- -- -- -- --
| || | || || | || || |
| || | || || | || || |
-- -- -- -- -- -- --
| || | | | || | || | |
| || | | | || | || | |
-- -- -- -- -- -- --
扫一扫
2965
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
