Beefy Boxes and Bandwidth Generously Provided by pair Networks Cowboy Neal with Hat
Keep It Simple, Stupid
 
PerlMonks  

EAN-13 JAPH

by teamster_jr (Curate)
on Mar 23, 2006 at 17:37 UTC ( #538807=obfuscated: print w/ replies, xml ) Need Help??

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=m +ap {split//}unpack C5,$&;$_=join"",$"x3,$t="| |",map{/ /?$_:do{$l=$z=unpa +ck 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;prin +t" <pre style='font:900 10 courier;line-height:8px;letter-spacing:-4px'>$ +_"
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...
this might explain what's happening.
alex

Comment on EAN-13 JAPH
Download Code
Re: EAN-13 JAPH
by liverpole (Monsignor) on Mar 23, 2006 at 21:00 UTC
    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$..$/
      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.
Re: EAN-13 JAPH
by wulvrine (Friar) on Mar 27, 2006 at 11:57 UTC
    Wow, I wasn't expecting that :)

    nice job

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://538807]
Approved by ww
Front-paged by liverpole
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (4)
As of 2014-04-19 10:11 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (480 votes), past polls