Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot

Re: iterating a hash of (complex?) arrays

by ikegami (Patriarch)
on Apr 27, 2005 at 03:53 UTC ( #451842=note: print w/replies, xml ) Need Help??

in reply to iterating a hash of (complex?) arrays

You were using $family{$label}[$names_idx] as an array ref whether it was an array ref or not. I added an if to avoid the problem.

@names always had one and only one member: a reference to an array of names. You probably meant to do @names = @{$family{$label}};. That you had four nested loops, but only three levels should have been a clue.

0..$#array is harder to read than doing a foreach on the array.

Here are the changes:

foreach my $label ( sort keys(%family) ) { print "$label\n"; foreach my $name ( @{ $family{$label} } ) { print "\t$name\n"; if (ref($name)) { foreach my $inner_name ( @{ $name } ) { print "\t\t$inner_name\n"; } } } }
if I use strict, the following code must be removed

That's not a good way of thinking. The code needed to be fixed, not removed. The problem existed whether use strict was used or not. The error was just silent when you removed the use strict.

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://451842]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (2)
As of 2023-03-22 21:41 GMT
Find Nodes?
    Voting Booth?
    Which type of climate do you prefer to live in?

    Results (60 votes). Check out past polls.