Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
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 ! :-)

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?
LanX can't stop laughing about the (serious) remark of the Lord mayor of London, that if Northern Ireland can stay attached to the EU, why not London. .. xD
[LanX]: reality = best satire!

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (11)
As of 2017-12-15 17:34 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    What programming language do you hate the most?




















    Results (439 votes). Check out past polls.

    Notices?