学步园

#!/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_____________

 --      --  --      --  --  --  --  --
|  ||      |   ||  ||   |      ||  ||  |
|  ||      |   ||  ||   |      ||  ||  |
         --  --  --  --  --      --  --
|  ||   |      |   |   ||  |   ||  |   |
|  ||   |      |   |   ||  |   ||  |   |
 --      --  --      --  --      --  --