my %myhash; my @str = qw( 7 house network_name 4 6); my $netName = $str[2]; if (defined($myhash{$netName})) { #if found my $arrayRef = $myhash{$netName}; $arrayRef->[0]++; # increment numbers $arrayRef->[1]++; } else { # must be new so ad new data to hash $myhash{ $netName } = [ @str[3..4] ] }
In reply to Re: multidimensional hash of array
by bikeNomad
in thread multidimensional hash of array
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |