Re: Re: Length of 2-dimensional array

[c-era]

in reply to Re: Length of 2-dimensional array
in thread Length of 2-dimensional array

This could also be written as:

my $a; # a 2d-array
my $count=0;
for (@$a){
  $count += $#$_+1;
}
print "My 2D-array is $count long\n";

[extremely]

my $a = [[1,2,3],[4,5,6,7],[3]];
my $count = 0;
$count += @$_ for @$a;

--
$you = new YOU;
honk() if $you->love(perl)

[jeroenes]

Yes. And extremely's reply spares even more keystrokes. Alls that inspires me to give a somewhat more useful answer:

$a = [ [ 0..2 ], [0..10],[0..100] ];
my ($min, $max,$sum) = (undef, 0, 0);
for (@$a){
  $sum += my $a_length = @$_;
  $min = $a_length if $a_length < $min or not defined $min;
  $max = $a_length if $a_length > $max;
}
my $avg = $sum/ @$a;
print "Avg: $avg; Min: $min; Max: $max\n";

Gives some useful array statistics.

Jeroen
"We are not alone"(FZ)