foreach $ary (@arrays)
{
    print $#{ary};
}
[download]

1t Note: $#array is not the length, but the biggest index.

2nd note:use strict

#!/usr/bin/env perl
use strict;

my $ar1 = [1,2,3];
my $ar2 = [4,5,6,7];

my @arrays = ($ar1,$ar2);

foreach my $ary (@arrays) {
    print $#{ary}, "\n";
}
__END__
Global symbol "@ary" requires explicit package name at test.pl line 10
+.
Execution of test.pl aborted due to compilation errors.
[download]

3d note: Read perldata and perlref! Really, that helps a lot!

4th note:

#!/usr/bin/env perl
use strict;
use warnings;

my $ar1 = [1,2,3];
my $ar2 = [4,5,6,7];

my @arrays = ($ar1,$ar2);

foreach my $ary (@arrays) {
    # correct syntax
    print $#{@$ary}, "\n";
    # correct length
    print scalar(@$ary), "\n";
}
[download]

regards,
tomte

---

Hlade's Law:

If you have a difficult task, give it to a lazy person --
they will find an easier way to do it.

Thanks for that, it helped a lot; but I'm in a bit of a confused pickle.

I'm using GD::Graph to draw some graphs. GD::Graph expects the data in the form;


@graphdata=([@array_of_xlabels],[@dataset],[@dataset],other datasets..
+...)
[download]


Now, I am trying to do this;

@labels=(array,of,labels)

loop
    loop
        build @dataset
    end loop
    push(@sets,[@dataset])
end loop

foreach $se (@sets)
    @set=$#{$se}
    ((some processing))
    push(@fixed,[@set])
end foreach

push(@graphdata,[@labels])

foreach $fi (@fixed)
    @fixd=$#{$fi}
    push(@graphdata,[@fixd])
end foreach
[download]


with the aim of ending up with @graphdata looking exactly the same as if I had done;


@graphdata=([@labels],[@dataset],[@dataset2])
[download]


so, pointers and references and whatnots all over the shop, and I'm getting confused.....