Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

my $First{JAPH}=1

by leons (Pilgrim)
on Jan 10, 2001 at 19:08 UTC ( #50922=obfuscated: print w/ replies, xml ) Need Help??

Well ... this is kind of like my first posting here
Not too impressive, I guess, but it works ...

#!/usr/bin/perl -w use strict; open A,"<$0";my @c;push @c,$_ while(<A>); print join ' ',(substr($c[5],6,1).substr( $c[0],3,1).substr($c[0],4,1).substr($c[5] ,4,1),((substr($c[4],5,1)=~y/A/a/)?substr ($c[4],5,1):"").substr($c[4],3,1).substr( $c[5],7,1).substr($c[5],4,1).substr($c[4] ,22,1).substr($c[0],12,1).substr($c[0],5, 1),(split /\/|\s/,$c[0])[3],substr($c[4], 22,1).substr($c[4],5,1).substr($c[4],17,1 ).chr(ord('k')).substr($c[0],12,1).(split /|\s/,(split /\/|\s/,$c[0])[3])[2]."\n");
Comments are more than welcome ! Thanks ! :-)

Comment on my $First{JAPH}=1
Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (3)
As of 2014-10-25 09:06 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    For retirement, I am banking on:










    Results (142 votes), past polls