in reply to Counting the elements of a hash of arrays of arrays
artistuse Data::Dumper; use strict; my @output = (1,2,3); my $addr = 'x'; my %results; push @{$results{$addr}},[@output]; @output = (4,5); $addr = 'y'; push @{$results{$addr}},[@output]; @output = (1,4,7,9,11); $addr = 'x'; push @{$results{$addr}},[@output]; print Dumper(\%results); my $sum; foreach my $addr (keys %results){ my $array_ref = $results{$addr}; foreach my $inner_array_ref (@{$array_ref}){ $sum += scalar @{$inner_array_ref}; } } print $sum;
|
|---|