Re: A better way for walking through HoHoH ?

[RMGir]

in reply to A better way for walking through HoHoH ?

Recursion to the rescue! :)

sub handleRefs
{
    my ($target, $keys_ar) = @_;
    if (ref $target eq "HASH") {
        foreach my $key(keys %$target) {
            handleHashOrElement($target->{$key},[@$keys_ar,$key]);
        }
        return;
    }

    if (ref $target eq "ARRAY") {
    print "ARRAY at @$keys_ar is [ @$target ]\n";
    return;
    }

    print "Value at @$keys_ar is $target\n";
}

handleRefs(\%rez, []);

In reality, you'd probably pass in another sub reference which would be the action to invoke on the final values.

[ZlR]

Ok, so now it really feels like there is a method on an object waiting in the shadow here :D

I will look at this code more closely when i can !