more useful options 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"}
[download]```

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

You can't just omit the braces, but you can do this instead:

*{"11abc"}->(); or &{"11abc"}();

The first one works because you can dereference the glob like any of a scalar, array, hash, code, io, or glob reference. That is, when you do this, you don't explicitly need to take the right part of the glob with the *foo{THING} notation.

The second should be obvious.

Re: Data Dumper Japh
by sgt (Deacon) on Jan 16, 2007 at 10:16 UTC

I like it!! thanks

cheers --stephan

Log In?
 Username: Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: obfuscated [id://594836]
Approved by muba
Front-paged by grinder
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (3)
As of 2021-09-25 03:59 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?

No recent polls found

Notices?