Perl: the Markov chain saw PerlMonks

### EAN-13 JAPH

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

Create A New User
Node Status?
node history
Node Type: obfuscated [id://538807]
Approved by ww
Front-paged by liverpole
help
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (4)
As of 2018-06-22 21:40 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
Should cpanminus be part of the standard Perl release?

Results (124 votes). Check out past polls.

Notices?