Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Live and Die

by cristian (Hermit)
on May 19, 2005 at 16:18 UTC ( [id://458681]=obfuscated: print w/replies, xml ) Need Help??

Live, coplete your mission, delivery your legacy and die. 
{split" ",(join"",@ARGV)|| ("12 1 2 1 1 1 1 2 1
 1 1 1 2  1 4 1 0  11 1 2 1 4 1 2 1 4 1 2 1 4 1
0 4 1 4 1 2 1 1 1 1 2  1 1 1 1 2  1 1 1 1 0 3 1
4 1 2 1 4 1 2 1 8 1 4 1 0 2 1 1 1 1 2 1 4 1 2 1
8 1 4 1 0 0")}{$^=shift@_}{$^{1}="_/"and$^{0}="
"}_:{$^==0|| $^==1?print$^{$^}:print" "x$^}{$^=
join" ",@_ }{$^="'$^'"}@_!=1?exec"perl $0 $^":_

[download]

Replies are listed 'Best First'.
Re: Live and Die
by de_cristian_izer (Initiate) on May 27, 2005 at 16:08 UTC
    So this one was tricky since it didn't run out of the box due to a problem with quote escaping in the exec ... So here is the solution, that we, a collective of rebel monks for CLEAN CODE have to offer :
    Read more... (2 kB)
    Rock on !

    ps : since it failed on our box could you tell us on what kind of OS and perl version did you run it ??

[reply]
[d/l]
[select]
      #!/usr/bin/perl
package ::Job::Bug::Hack::CLEAN::CODE;
sub present::a{
        $_=(caller())[//-//];
        $_=~s/:+/\nGood /g;
        "$_\n\n"
}
print a present;

      [download]
[reply]
[d/l]

Back to Obfuscated Code

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: obfuscated [id://458681]
Approved by davidrw
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others meditating upon the Monastery: (3)
As of 2024-04-24 18:17 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found