Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things

Re: HTML::Template and hashes of hashes

by blokhead (Monsignor)
on Mar 16, 2004 at 02:17 UTC ( #336905=note: print w/replies, xml ) Need Help??

in reply to HTML::Template and hashes of hashes

This recursively flattens multilevel hashes so you can get to them with a TT-ish syntax from HTML::Template. It should be straight-forward to modify if you also want arrayrefs to be recursively flattened too.
sub flatten { my $hr = shift; my %result; while (my ($k, $v) = each %$hr) { if (ref $v eq 'HASH') { my $r = flatten($v); $result{"$k.$_"} = $r->{$_} for keys %$r; } else { $result{$k} = $v; } } \%result; } print Dumper flatten { foo => { in_foo => 1, bar => 1, baz => { in_baz => 1 } }, blah => 1 }; __END__ $VAR1 = { '' => 1, 'blah' => 1, 'foo.baz.in_baz' => 1, 'foo.in_foo' => 1 };


Replies are listed 'Best First'.
Re: Re: HTML::Template and hashes of hashes
by jdtoronto (Prior) on Mar 16, 2004 at 16:06 UTC
    Thanks blokhead,

    Thats just the trick. I was pondering the same answer when I saw your response and I took your code and used it. Thank you so much, it did just what I need.


Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://336905]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (3)
As of 2017-09-23 07:51 GMT
Find Nodes?
    Voting Booth?
    During the recent solar eclipse, I:

    Results (272 votes). Check out past polls.