develooper Front page | perl.fwp | Postings from November 2001

Re: isprint Golf Challenge

Thread Previous | Thread Next
From:
Philip Newton
Date:
November 17, 2001 00:10
Subject:
Re: isprint Golf Challenge
Message ID:
8j6cvtcbt05viglb3dses34u4sddkluen7@4ax.com
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
Thread Previous | Thread Next

nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About