Beefy Boxes and Bandwidth Generously Provided by pair Networks RobOMonk
laziness, impatience, and hubris
 
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$..$/
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 browsing the Monastery: (8)
As of 2014-04-20 09:07 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (485 votes), past polls