Beefy Boxes and Bandwidth Generously Provided by pair Networks RobOMonk
Your skill will accomplish
what the force of many cannot
 
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

[download]

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

[reply]
      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?

[reply]
[d/l]
[select]

        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

[reply]

Back to Obfuscated Code

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 pondering the Monastery: (4)
As of 2013-05-26 08:06 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best material for plates (tableware) is:









    Results (524 votes), past polls