Re: Re: 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";
[download]

Comment on Re: Re: Length of 2-dimensional array Download Code

Replies are listed 'Best First'.
Re: Re: Re: Length of 2-dimensional array by extremely (Priest) on Apr 06, 2001 at 00:40 UTC
`my $a = [[1,2,3],[4,5,6,7],[3]]; my $count = 0; $count += @$_ for @$a;` [download] -- $you = new YOU; honk() if $you->love(perl)	[reply] [d/l]
Re:{3} Length of 2-dimensional array by jeroenes (Priest) on Apr 06, 2001 at 00:55 UTC
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";` [download] Gives some useful array statistics. Jeroen "We are not alone"(FZ)	[reply] [d/l]