xwords/xwords4/dawg/allchars.pl

11 lines
230 B
Perl
Raw Permalink Normal View History

2003-12-10 07:05:19 +01:00
#!/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;
}