Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical

Re: trouble with substitution

by InfiniteSilence (Curate)
on Jan 19, 2012 at 04:04 UTC ( #948670=note: print w/replies, xml ) Need Help??

in reply to trouble with substitution

perl -e 'my %hash=(q|a|=>100,q|b|=>300); use Data::Dumper; my $obj = D +ata::Dumper->new([\%hash],[qw|foo|]); print $obj->Dump();' $foo = { 'a' => 100, 'b' => 300

Maybe stop putting $VAR in the output in the first place?

Celebrate Intellectual Diversity

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://948670]
[choroba]: Well, merging two hashes recursivelly is not that hard either, but...
[Corion]: choroba: Yeah - I think I used (and extended) Hash::Merge for recursive merging
[Corion]: I still wonder if I should maybe publish Config::Collect, which (I think) is the dumb hash merger
[Corion]: It still needs some more ways of specifying defaults (in memory) and loading files (user-supplied loader(s)/ callbacks?), and the app-specific parts ripped out...

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (8)
As of 2018-02-23 19:28 GMT
Find Nodes?
    Voting Booth?
    When it is dark outside I am happiest to see ...

    Results (310 votes). Check out past polls.