Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical
 
PerlMonks  

Dusty JAPH

by chargrill (Parson)
on Jan 19, 2007 at 00:01 UTC ( #595385=obfuscated: print w/ replies, xml ) Need Help??

This one was also gathering dust on my hard drive. I think I whipped up quite a few at once several months ago, but didn't want to rapid-fire them into Obfuscated Code. (Note, monks with dust allergies are safe to run this code ;-)

#!/usr/bin/perl sub'_{ $_[ 0]=~s *_* *g&&$_[0]}$\=",";sub'__{$_[0]=~m *$/$/$/*;eval "sub'".$1.$2."{'".$3."'}";\&{"$1$2"}}$/=q*(\w)*;map{$#{$_}?$#{$_}++ && __$ _:'' ;$#.=&{__$_}}qw*TAJ YOu hIs yet _2_ Spa zEn Tao NOt ugh sue her _1_ VIP the far Url _0_ hah aha sIc aCk Ace fur* ;print _$#


--chargrill
s**lil*; $*=join'',sort split q**; s;.*;grr; &&s+(.(.)).+$2$1+; $; = qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)

Comment on Dusty 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://595385]
Approved by liverpole
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (6)
As of 2014-09-17 01:44 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (56 votes), past polls