http://qs1969.pair.com?node_id=33246

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";


$_="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!

      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
        I hope you are pulling my leg japhy, but I don't see a smiley up there ;-)