in reply to 1 0\/\/Nz U DoodZ!
Some comments on the latter half of translations:
japhy -- Perl and Regex Hacker
That ^ makes no sense.$data =~ s/ss^\b/ran("55","\$\$","\$\$")/gie;
Ewww. This would be so much better as a tr///.$data =~ s/e/3/gi; $data =~ s/t/7/gi; $data =~ s/(l|i)/1/gi; $data =~ s/a/4/gi; $data =~ s/b/8/gi; $data =~ s/g/9/gi; $data =~ s/o/0/gi;
$data =~ tr/eEtTlLiIaAbBgGoO/3377111144889900/;
japhy -- Perl and Regex Hacker
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Re: 1 0\/\/Nz U DoodZ!
by howard40 (Beadle) on Feb 28, 2001 at 03:00 UTC |
In Section
Cool Uses for Perl