xwords/dawg/allchars.pl
2003-12-10 06:05:19 +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;
}