--Taw |
Even better would be a line noise winner from one of the obfuscated perl contests, if that code is public domain. :-) |
Even better would be a line noise winner from one of the obfuscated perl contests, if that code is public domain. :-) But that would miss the point - we want to show real Perl code, not one that was deliberately obfuscated. --Taw |
# A sample Perl program $message = "Hello, world! The magic number is 234542354.\n"; print $message; $message =~ s/\d+/-1/; print $message; exit 0
You're saying that it shows "high use of meaningful punctuation characters" ? You've never seen any REAL perl code :). What about using this (uppercase input) as an example:
while(<>) {
$_=~y/a-z/A-Z/; print;}
--Taw
But that would miss the point - we want to show real Perl code, not one that was deliberately obfuscated. --Taw