Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot

Re: Two questions about hashes

by SimonClinch (Deacon)
on May 31, 2011 at 09:32 UTC ( #907429=note: print w/replies, xml ) Need Help??

in reply to Two questions about hashes

I'd do something like:
Traverse( \%hashofsomethings, sub { warn "example $_[0]"; }); sub Traverse { my $node = shift; my $code = shift; local $_; if (ref( $node ) eq 'HASH' ) { Traverse( $_ ) for values %$node; } elsif(ref($node) eq 'ARRAY') { Traverse( $_ ) for @$node; } else{ $code ->( $node ); } }

One world, one people

Replies are listed 'Best First'.
Re^2: Two questions about hashes
by Anonymous Monk on May 31, 2011 at 13:17 UTC
    Simon, You should create your BATX letters instead of ...
      What does mean BATX letters ? Is it a joke?
      I didn't understand it ...
Re^2: Two questions about hashes
by i5513 (Pilgrim) on Jun 02, 2011 at 20:13 UTC
    I need previous keys to know what is I'm computing, so this is not a good solution, but yes a good way learning recursion algorithms & perl ;)
    Thank you!

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (7)
As of 2018-06-21 20:03 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (119 votes). Check out past polls.