Thanks :-)
A little bug:
> my %HexCodes = map { ord($_) => sprintf '%02X', $_ } ( 0 .. 128 );
my %HexCodes = map { chr($_) => sprintf '%02X', $_ } ( 0 .. 128 );
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
