EAN-13 JAPH
After another long break between posting, here's my latest effort.
update: here's a shorter version:
$_="JUST ANOTHER PERL HACKER,";s#.{5}#$d=5;map{$d+=$f++%2?3*$_:$_}@a=map
{split//}unpack C5,$&;$_=join"",$"x3,$t="| |",map{/ /?$_:do{$l=$z=unpack
B7,pack v,unpack(x.$_.C,"5A;eKYWc_3")-40<<1;$z=~s/./1^$&/eg;$m=reverse$z
;${qw.l m m l l m.[$c++%12]||z}}}@a=(0,splice(@a,0,5," $t "),@a,10-$d%10
),$t.$/;s/\d/$&?"|":$"/eg;"$_$_ 5 $t".join$"x5,$",@a," $t\n\n"#eg;print"
$_"
this outputs an html fragment - hopefully it's browser compliant which probably only properly works in Moz.
If not you should be able to see what's going on...
[http://www.barcodeisland.com/ean13.phtml|this] might explain what's happening.
alex
Re: EAN-13 JAPH
created: 2006-03-23 16:00:52
Wow, now that's a unique idea for displaying a JAPH! ++
s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/
Re^2: EAN-13 JAPH
created: 2006-03-24 03:51:05
I'd be curious to know what these barcodes are attached to IRL - I think it would make a relatively neat perl based scavenger hunt :-)
Although since i'm a UK based perl hacker the barcodes are all for stuff manufactured here.