There's more than one way to do things 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

update: sorry about not using a spoiler tag...

```% stephan@armen (/home/stephan) %
% perl -we ' *{"11abc"} = sub { print q[ok] }; *{"11abc"}{CODE}->()'
ok

% stephan@armen (/home/stephan) %
% perl -we ' *{"11abc"} = sub { print q[ok] }; &{*{"11abc"}}()'
ok

actually I think the second form could work with less braces ...humm

cheers --stephan
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 musing on the Monastery: (3)
As of 2018-06-23 03:33 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
Should cpanminus be part of the standard Perl release?

Results (125 votes). Check out past polls.

Notices?