http://www.perlmonks.org?node_id=150380

#!/usr/bin/perl $_=q{*{$Just =bless{},'$another ';"\$Perl \::$hacker"}=sub{print$%[$.+ ++];$,,$ ;$_[0]},eval join v45.62,('$z')x6};s/(?<=\$)([a-z\n]+ ?)/push@%,$+;f/e +gi;eval

Replies are listed 'Best First'.
Re: JAPH
by Juerd (Abbot) on Mar 08, 2002 at 18:12 UTC
    What's with the line breaks? I copied the text, pasted in a terminal and it worked. I use Mozilla 0.9.7 under Debian Linux.

    By the way: s/Hacker/hacker/ and s/$/,/ :)

    44696420796F7520732F2F2F65206F
    7220756E7061636B3F202F6D736720
    6D6521203A29202D2D204A75657264
    

      Ahah, there's a "d/l code" link. That's good, but it's too small and easily missed. Double-ahah! There's also a user setting to change column wrap width. I still think the default value should be 80 not 70 though, in line with conventional UNIX terminals.

      You're quite right, I've done s/Hacker/hacker/. Thanks. Not sure why you said s/$/,/ though. Did you try to figure out how it works?

        Not sure why you said s/$/,/ though. Did you try to figure out how it works?

        I refered to the string that is printed eventually. See also RE: RE: JAPH

        U28geW91IGNhbiBhbGwgcm90MTMgY
        W5kIHBhY2soKS4gQnV0IGRvIHlvdS
        ByZWNvZ25pc2UgQmFzZTY0IHdoZW4
        geW91IHNlZSBpdD8gIC0tIEp1ZXJk