Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

Re: Dump using Dumper

by davido (Cardinal)
on Mar 23, 2004 at 07:12 UTC ( #338913=note: print w/replies, xml ) Need Help??


in reply to Dump using Dumper

I couldn't leave well enough alone; not satisfied with my previous response. Here is a more complete solution:

use strict; use warnings; use Data::Dumper; my %hash = qw/Blue 1 Cow 3/; sub PrettyDump { local $Data::Dumper::Terse = 1; local $Data::Dumper::Indent = 1; local $Data::Dumper::Quotekeys = 0; my $dump = Dumper(@_); $dump =~ s/[{}]\s+|[',]|=>|^\s+//mg; return $dump; } print PrettyDump(\%hash); __OUTPUT__ Blue 1 COW 3

The substitution regex is pretty lame in this solution. And it's only designed to work with non-complex datastructures. A more robust solution would be a lot more careful to deal with things like commas, quotes, etc. And though it's probably easier to write your own hash-dumper than to implement a solution that strips away unwanted stuff from the output of Data::Dumper, I thought it was fun to tinker with this solution anyway.

Enjoy.


Dave

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://338913]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (4)
As of 2022-01-24 20:14 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    In 2022, my preferred method to securely store passwords is:












    Results (65 votes). Check out past polls.

    Notices?