xwords/xwords4/dawg/allchars.pl
2008-12-18 13:23:12 +00:00

10 lines
230 B
Perl
Executable file

#!/usr/bin/perl
# Print all ascii characters (for pasting into Makefiles etc. when you
# don't know what key combination produces them)
use strict;
for ( my $i = int(' '); $i <= 255; ++$i ) {
printf "%.3d: %c\n", $i, $i;
}