Live and Die

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]

Comment on Live and Die Download Code

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]
Re^2: Live and Die by cristian (Hermit) on May 27, 2005 at 19:37 UTC
`#!/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]