my @array = ( [ 1..3 ], [ 2..6 ] );

    for my $i (0 .. $#array) {
        for $k (0..$#{ $array[$i] }) {    ## This is the key.
            print $array[$i][$k];
        }
    }
[download]

It is better IMO to encourage the use of foreach rather than C style loops. (Executes faster, faster to write, easier to avoid logic errors like off by one.)

my @array = ( [ 1..3 ], [ 2..6 ] );

foreach my $outer (@array) {
    foreach my $element (@$outer) {
        print "$element\n";
    }
}
[download]

OTOH map is really nice...

my @array = ( [ 1..3 ], [ 2..6 ] );
print map {"$_\n"} map {@$_} @array;
[download]

:-)

Actually, according to Merlyn, at this node for and foreach are the same and have been since the beginning of Perl. That was all cleared up in for vs foreach.

Minor point of correction... :)

Shouldn't that be print scalar( @$array[$i][$k] ); or print $#$array[$i][$k]; to print the size out. Otherwise your printing the reference to the array, I think.

Update: oops, sorry. You're right...

Got confused with the "length of array in array of arrays". Thought that meant the array of arrays held references to arrays again...

That print line isn't printing the size; I didn't think that was what the OP wanted, from the code he/she demonstrated. It looked like he/she just wanted to find the "length" of the array (actually the last index) in order to loop over the inner arrays, then print out each element. So that's what my code does: the print line is printing the element with index $k in the array at $i in the original array @array.

#!/usr/bin/perl -w

use strict;

my @a = (1,2,3);
my @b = (4,5,6);
my @c = (7,8,9,0);

my @array = (@a, @b, @c);
my $size = @array;
# $size will be 10
[download]

If it is an array of array refs, you could do:

#!/usr/bin/perl -w

use strict;

my @a = (1,2,3);
my @b = (4,5,6);
my @c = (7,8,9,0);

my @array = (\@a, \@b, \@c);
my $i;
for (@array) {
        $i += @$_;
}
# $i will be 10, scalar @array will be 3
[download]

If it is another scenario, you should now be able to figure out your solution.

Cheers,
KM

sub rscalar {
my($count);
  map { 
    $count++;
    if (ref eq "ARRAY") {
      $count = $count + rscalar(@{$_});
    }
  } @_;
  return $count;
}
[download]

/****************************/
  jason@gost.net, wh@ckz.org
    http://jason.gost.net
/*****************************/
[download]

for $element (@{$aref}) {
   $accumulator += $#{$element} + 1;
}
[download]