Live and Die

[cristian]

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 $^":_

[de_cristian_izer]

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 ??

[cristian]

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