Re: 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 );
    }
}
[download]

One world, one people

Comment on Re: Two questions about hashes Download Code

Replies are listed 'Best First'.
Re^2: Two questions about hashes by Anonymous Monk on May 31, 2011 at 13:17 UTC
You should create your BATX letters instead of ...	[reply]
Re^3: Two questions about hashes by i5513 (Pilgrim) on Jun 02, 2011 at 20:18 UTC
What does mean BATX letters ? Is it a joke? I didn't understand it ...	[reply]
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!	[reply]