Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Yet another (easy) one

by jbrugger (Parson)
on Nov 08, 2006 at 14:51 UTC ( #582885=obfuscated: print w/ replies, xml ) Need Help??

Should not that hard to explain :)
#!/usr/bin/perl use strict; use warnings; # My array should read Obfuscation :) my @s = ("\117"=>"\142","\146"=>"\165","\163"=>"\143","\141"=>"\164"," +\151"=>"\157"=>"\156"); my ($c) = $^X =~ m/(?:.*[\/|\\]){0,}(\w+)/; print uc(++$s[8]).$s[3].($s[4]).++$s[4]."\40".$s[6].$s[10].lc($s[0]).$ +s[7]."her\40".ucfirst($c)." "."h".$s[6].$s[5]."ker".",\n";


"We all agree on the necessity of compromise. We just can't agree on when it's necessary to compromise." - Larry Wall.

Comment on Yet another (easy) one
Select or Download Code
Re: Yet another (easy) one
by muba (Priest) on Nov 08, 2006 at 16:07 UTC
Re: Yet another (easy) one
by mreece (Friar) on Nov 08, 2006 at 19:22 UTC

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (13)
As of 2014-07-22 14:05 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (114 votes), past polls