[prev] [thread] [next] [lurker] [Date index for 2003/09/14]
On Sat, Sep 13, 2003 at 11:51:45AM -0500, Peter da Silva wrote: > In Perl, there's no switch, there's half a dozen alternate ways to > do the same thing... use Switch; It didn't exist, so someone wrote it. This is why Perl is great, and why I hate every other language ever[0]. [0] Not a desperate attempt to get some hate into this message. Honest. -- # Earle Martin http://c2.com/cgi/wiki?EarleMartin $a="f695a9a2176a7dd1618af6649896ee10f05ea986de18af6277e9a1d8ef4696644569a1d". "8ef46961ae1e64277e9896eea7d92ea8003e9a1d8ef4696f6950";$b="8ALB6AIA4.BA2";$c= join"",unpack"C*",$b;$c=~s/7/2/g;@b=split"",$c;foreach$d(@b){$e=hex(substr($a ,$f,$d));while(length($e)<8){substr($e,0,0)=0;}print pack"b8",$e;$f+=$d;}There's stuff above here
Generated at 14:02 on 01 Jul 2004 by mariachi 0.52