RE: Getting through a deep hash

2002-05-24 Thread Bob Showalter
> -Original Message- > From: Barry Jones [mailto:[EMAIL PROTECTED]] > Sent: Friday, May 24, 2002 6:32 AM > To: Beginners @ Perl (E-mail) > Subject: Getting through a deep hash > > > I'm having trouble with this set of code. I'm trying to > navigate my way > through a VERY deep hash (ak

Re: Getting through a deep hash

2002-05-24 Thread Michael Lamertz
On Fri, May 24, 2002 at 09:32:26AM -0400, Barry Jones wrote: > > my $results = $test->{testing_results}{testing_result}; > if(ref($results) eq 'ARRAY') { > for my $spot (@$results) { > for my $key (keys %$spot) { > if (ref($spot->{$key}) eq 'HASH') {