Re: Two questions about hashes

[SimonClinch]

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 );
    }
}
 

[Anonymous Monk]

Simon, You should create your BATX letters instead of ...

[i5513]

What does mean BATX letters ? Is it a joke?
I didn't understand it ...

[i5513]

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!