On Fri, 16 Nov 2001 23:02:57 -0500, in perl.fwp you wrote:
> foreach my $num (0..255) {
> my $chr = chr $num;
> $U2P{$chr} = $chr =~ tr/\x20-\x7F// ? $chr : '\\'.sprintf("%03o",$num);
> }That should be \x20-\x7E, I think. "\x7F" is a control character (DEL, "\c?"). Cheers, Philip
