Font Map of $font

#!/usr/bin/perl # fontmap.pl -- Creates an HTML page of the desired font. use strict; use warnings; my $font = $ARGV[0]; my $c = 32; print < Font Map of $font TEXT foreach (0..27) { print "\t\n"; foreach (0..7) { print "\t\t\n"; } print "\t\n"; } print < TEXT

",chr($c) eq ' ' ? ' ' : chr($c),"

",sprintf("%o",$c++),"