Yeah, right. 
use overload;BEGIN{overload::constant
"q",sub{$_[1]=~s/\^(.)/qq!"\\c$1"!/eeg,return$_[1]}}
print "Just Another Python^H^H^H^H^Herl Hacker\n";

[download]


$_="goto+F.print+chop;\n=yhpaj";F1:eval

Replies are listed 'Best First'.
RE: Just Another Python Hacker
by ncw (Friar) on Sep 22, 2000 at 15:53 UTC
    If I try this on 5.005_03 built for i386-linux I get "Out of memory!" error.

    It works fine on v5.6.0 build for i686-linux though!

[reply]
      5.005_03 on 386-linux does have a known bug that comes from using the string "Python" in a Perl program.

      $_="goto+F.print+chop;\n=yhpaj";F1:eval
[reply]
        I hope you are pulling my leg japhy, but I don't see a smiley up there ;-)
[reply]

Back to Obfuscated Code