Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number
 
PerlMonks  

Re: iterating a hash of (complex?) arrays

by ikegami (Patriarch)
on Apr 27, 2005 at 03:53 UTC ( [id://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?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others contemplating the Monastery: (5)
As of 2024-03-29 15:48 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found