Getting size of array parameter passed as a reference

[LucL]

Hi,

How can I obtain the size of an array that was passed as a reference.

ex:

&something(\@v1,\@v2);

sub something{
my($arr1,$arr2)=@_;

#get size of arr1?
}

I know I can loop through all the items by setting up a foreach(@$arr) but the regular old $# doesn't seem to work.

I also don't want to make a copy of this as an array, I want to keep it as a reference.

Thanks!

 

[raklet]

Get the count just like you would a normal array - by calling the array in scalar context.

my @v1 = qw(a b c);
my @v2 = qw(1 2 3 4 5);

&something(\@v1,\@v2);

sub something{
  my($arr1,$arr2)=@_;
  my $count = @{$arr1}; # call the array in scalar context.  
  print $count;
}

 

[LucL]

awesome. thanks!

 

[rharsh]

You can still use the $#array with references:

my @a = ('one', 'two', 'three');
print "Main: $#a\n";

test(\@a);

sub test {
    my $ref = shift;
    print "Sub: $#$ref\n";
}