Whenever I have to deal with deeply nested hashes, I normally save a reference to a nested hash into a separate 'temporary' variable and work with it instead. Just like here:
my $hash_b = $hash1->{'a'}->{'b'};
if ($hash_b->{c}) {
$hash2->{bob} = $hash_b->{c};
}
UPDATE: to the
editors, I guess someone has to fix the title of this node and making it anything other than 'Mar' ;).
_____________________
$"=q;grep;;$,=q"grep";for(`find . -name ".saves*~"`){s;$/;;;/(.*-(\d+)
+-.*)$/;
$_=["ps -e -o pid | "," $2 | "," -v "," "];`@$_`?{print"+ $1"}:{print"
+- $1"}&&`rm $1`;
print$\;}