Order of execution

#!/usr/bin/perl -w

use strict;

$\=$1.chr(10)if($a=~/(J.*?)\\/x);BEGIN{my$c='q!';my$m='p!';my$p=q!;my$
+e=sub{
$_=reverse(shift);s((((.))))["sprintf('%x',ord('$1'))"]gexe;return uc$
+_;};y/
a-z/z-a/xd;@a=map{grep{/^1/&&$b}${$_}}@_;map{2^$_}@_;$$=sub(/j,a|p.h/;
+(34,1,
43,'\x10');return"Just another Perl hacker\n");map{1}!;$main::a=$p;}pr
+int"";
[download]

some cheap tricks, and map in a void context :)

Comment on Order of execution Download Code

Replies are listed 'Best First'.
Re: Order of execution by nothingmuch (Priest) on Mar 31, 2003 at 12:11 UTC
map isn't really used in void context, now is it? -nuffin zz zZ Z Z #!perl	[reply]
Re: Re: Order of execution by iamcal (Friar) on Apr 01, 2003 at 07:49 UTC
is it cheating to throw people off with your explanation? ;)	[reply]
Re: Re: Re: Order of execution by diotalevi (Canon) on Apr 01, 2003 at 10:33 UTC
No	[reply]
Re: Order of execution by jonadab (Parson) on Apr 03, 2003 at 18:22 UTC
Wow, it's... almost 100% seafood. Baked herring, methinks, of the red variety. `for(unpack("C*",'GGGG?GGGG?O__\?WccW?{GCw?Wcc{?Wcc~?Wcc{?~cc' .'W?')){$j=$_-63;++$a;for$p(0..7){$h[$p][$a]=$j%2;$j/=2}}for$ p(0..7){for$a(1..45){$_=($h[$p-1][$a])?'#':' ';print}print$/}` [download]	[reply] [d/l]
Re: Order of execution (++) by Aristotle (Chancellor) on Apr 18, 2003 at 11:48 UTC
Hehe, pretty funny, if (at heart) simple. It took me a while to realize what's going on. Nice job `:)` Makeshifts last the longest.	[reply]