Welcome to the Monastery PerlMonks

### Data Dumper Japh

by liverpole (Monsignor)
 on Jan 16, 2007 at 01:45 UTC Need Help??

It's been a while since I've written one, so...
use Data::Dumper; \$Data::Dumper::Indent = \$Data::Dumper::Sortkeys = cos log 1; sub Oxff { (chr pop)x(chr pop) } \$J = (Oxff+0x32,0x23); \$j = (Oxff+0x34,0x23); \$/ = (Oxff+0x36,0x23); \$A = (Oxff+0x33,0x20); \$a = (Oxff+0x37,0x20); \$, = (Oxff+0x34,0x20); \$P = (Oxff+0x32,0x20); \$p = \$J.\$P.\$J; \$; = "\$J \$J"; \$H = \$".\$J.\$A; \$h = \$".\$J.\$,; \$z = (Oxff+0x31,0x23). \$"; print Dumper { 'z" } __END__ '=>q^@^x12^'"9`,)6%20/,%',g=>' ',d=> "\$A\$p \$p\$z\$H\$/ \$/ \$J \$p\$A\$j\$z\$j \$/",b=> "\$A\$p \$p\$z\$j\$A\$j\$P\$p\$P\$J\$z\$/ \$; \$j \$j\$z",h=> "\$j\$z\$a\$a\$, \$p\$a\$a\$a\$a\$,\$P\$J",m=> "\$J\$, \$j \$p \$j\$P\$p\$P\$/ \$j \$p \$j \$p\$P\$J",k=> "\$j\$z \$j \$/\$h\$p\$P\$j\$z\$J\$,\$j\$A\$j \$/\$,",f=> " \$J\$z\$A\$J\$z \$j\$P\$J\$A\$p \$p\$P\$J\$z\$P\$J\$A\$; \$j \$p",e=> "\$J \$p\$h\$J\$H\$p \$J \$J\$z\$J \$p\$A\$;\$H\$; ",i=> "\$p \$j \$j\$z\$h\$p\$P\$j\$A\$j \$p \$j \$j\$z\$P\$J",j=> "\$p\$H\$p\$h\$/\$, \$J\$h\$J \$p\$A\$p\$P\$J",l=> "\$J\$,\$H\$J \$p\$,\$p \$p\$h\$J \$p\$A\$J\$H\$J",c=> "\$A\$p \$J\$h\$J\$A\$p \$J\$z\$; \$p\$A\$;\$H\$p",a=> "\$j\$J\$z\$a\$a\$,\$J"}

s''(q.S:\$/9=(T1';s;(..)(..);\$..=substr+crypt(\$1,\$2),2,3;eg;print\$..\$/

Replies are listed 'Best First'.
Re: Data Dumper Japh
by muba (Priest) on Jan 16, 2007 at 02:32 UTC
Re: Data Dumper Japh
by sgt (Deacon) on Jan 16, 2007 at 10:16 UTC

I like it!! thanks

cheers --stephan

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

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (5)
As of 2017-06-25 22:18 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
How many monitors do you use while coding?

Results (571 votes). Check out past polls.