Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options
 
PerlMonks  

meta JAPH

by ColonelPanic (Friar)
on Nov 15, 2012 at 15:05 UTC ( #1004028=obfuscated: print w/ replies, xml ) Need Help??

I am having too much fun, but here is another one:
#!/usr/bin/perl $_=q|trdKVO99Rhlokd:trdGSLK99O`qrdq:#o<GSLK99O` qrdq,=mdv'cde`tks^g<=Zrtaz#^<rghes:#^%%'r.[Zcnv mkn`c[\..+du`k(\|+&csdws&\(:fds'!gsso9..vvv-odq klnmjr-nqf.>mncd^hc<#^Z/\!(<}.;oqdbk`rr<!bncd!= '-)>(;[.oqd=.r:#o,=o`qrd'#0(|;sub AUTOLOAD{@_?( $_=~s/(.)\n?/chr(ord($1)+1)/egx,eval):AUTOLOAD( $AUTOLOAD=~s/\D//gr);}&split5and5and5chop6chop6

Ok, string mangling is rather unoriginal, but observe how small changes can lead to a very different result:

#!/usr/bin/perl $_=q|trdKVO99Rhlokd:trdGSLK99O`qrdq:#o<GSLK99O` qrdq,=mdv'cde`tks^g<=Zrtaz#^<rghes:#^%%'r.[Zcnv mkn`c[\..+du`k(\|+&csdws&\(:fds'!gsso9..vvv-odq klnmjr-nqf.>mncd^hc<#^Z/\!(<}.;oqdbk`rr<!bncd!= '-)>(;[.oqd=.r:#o,=o`qrd'#0(|;sub AUTOLOAD{@_?( $_=~s/(.)\n?/chr(ord($1)+1)/egx,eval):AUTOLOAD( $AUTOLOAD=~s/\D//gr);}&split9join9chop75chop88;

And there are many other possibilities, too.

I have to credit Athanasius for his help on this one.



When's the last time you used duct tape on a duct? --Larry Wall

Comment on meta JAPH
Select or Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (8)
As of 2014-08-29 23:40 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (289 votes), past polls