Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options
 
PerlMonks  

EAN-13 JAPH

by teamster_jr (Curate)
on Mar 23, 2006 at 17:37 UTC ( [id://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

Replies are listed 'Best First'.
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
Domain Nodelet?
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?Last hourOther CB clients
Other Users?
Others avoiding work at the Monastery: (4)
As of 2024-03-29 09:27 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found