Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

Evil JAPH

by etcshadow (Priest)
on Mar 22, 2004 at 05:58 UTC ( [id://338565]=obfuscated: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
    ($c=>$i)=(shift()=>shift);@i=split//=>$i;
    ...
    print"\n".$s[$s<0?$e:$s];<.>;print${b@e=>$p};
    for(;@s;$s^=pop@s){}
    print$s;
    
  2. or download this
    ------------
    :Wq
    Not an editor command: Wq
    

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: obfuscated [id://338565]
Approved by jweed
Front-paged by rob_au
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others surveying the Monastery: (6)
As of 2024-04-19 13:07 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found