8 Mar
2007
8 Mar
'07
12:23 a.m.
On Wed, 2007-03-07 at 19:14 +0000, samwise wrote:
I love the perl motto:
There's More Than One Way To Do It
Actually you are wrong there the Perl motto actually reads more like -
undef $/;open(_,$0);/ \dx([\dA-F]*)/while(<_>);@&=split(//,$1);@/=@&; $".=chr(hex(join("",splice(@&,0,2))))while(@&); eval$”;
($C,$_,@)=(($a=$/[1]*4)*5+1, q| |x(0x20).q|||.chr(32)x(0x10).q$*$. chr(0x20)x(0x10).(pack("CC",124,10)), sub{s/.|(\s*?)(\S)./|$1 $2/}, sub{s/|(\s*?).(\S)/ |$1$2 /}, sub{$2.$1.$3},sub{$tt=(3*$tt+7)%$C}, sub{$1.$3.$2});
:-)