Your skill will accomplishwhat the force of many cannot 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
Heh, nifty!

Also, it took a good second look to see the distinction between Ox and 0x.
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 making s'mores by the fire in the courtyard of the Monastery: (4)
As of 2018-05-23 04:19 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
World peace can best be achieved by:

Results (166 votes). Check out past polls.

Notices?