Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

Abstract JAPH

by jake (Monk)
on Sep 17, 2001 at 02:51 UTC ( #112768=obfuscated: print w/ replies, xml ) Need Help??

#!/usr/bin/perl $_0=0; $_0=~s _0_c_s; $_0=~s _(c)_$1_s; $_0=~s _(c)_su$1_s; $_0=~s _(c)_b_s; _0('$__0=\' \''); _0($_0.q/ _{_0(" $_0$__0$_[$_0_=0] \{$_[++$_0_]}")}/); _(q/_0_/,'return $_[0]+97'); _('__0',' @_=split /1/,$_[0]; for(0..$#_){ $_[$_]=~s 0_0+10g; $_[$_]=~s +\$+*5+g; $_[$_]=~s _0_-1_g; $_[$_] = chr (_0_(_0(qq/ $_[$_]/))); }return @_;' );@__0= (q/___/,q/ $___=$__0; $___ .=$_ for@__; return $___/);@__ =__0(' (___)$1(____) $+(000) 1(__)$+(00)1 (__)$+(__ _)1(____)$+(0) ');_(@__0); ___();sub _0{ eval$_[0]}; @_0_=__0('(__) $01(____)$ 1(____)$001(____)$0'); @_00=__0('0_1(___)$ 001(___)$01(___ _)$01_$__1_ $01(__ _)$__ '); @___0 =__0(' (___)$1_$01 (___)$__1(__)$_'); @__0_=__0('(_)$__10_1_ _1(__)$1_$01(___)$__'); $_0_[0]=uc($_0_[0]); $___0[0]=uc($___0[0] );$_00_.=$_ for@_0_; $_00_.=' ';$_00_.= $_ for@_00;$_00_ .=' ';$_00_ .=$_ for @___0; $_00_.= ' ';$_00_ .=$_ for@__0_; @_0=(q/__/,"$___ \"$_00_\"");_(@_0); __();
--jake
"This space intentionally left blank" -Zork

Comment on Abstract JAPH
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://112768]
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: (8)
As of 2014-12-20 02:20 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (95 votes), past polls