Perl programming language/Talk

< Perl programming language

HomePage | Recent changes | View source | Discuss this page | Page history | Log in |

Printable version | Disclaimers | Privacy policy

       # 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

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