note
RMGir
Recursion to the rescue! :)
<code>
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, []);
</code>
In reality, you'd probably pass in another sub reference which would be the action to invoke on the final values.
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-151991">
<br>Mike
</div></div>
830512
830512