Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

JAPH

by Adze (Acolyte)
on Mar 08, 2002 at 17:44 UTC ( #150380=obfuscated: print w/ replies, xml ) Need Help??

#!/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

Comment on JAPH
Download Code
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
        

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://150380]
Approved by root
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (7)
As of 2014-11-27 23:41 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (190 votes), past polls