我如何知道入参数组的最后一个下标？我如何往这个数组中加入item？

Question

perl里面如果用数组引用做入参，如何在函数中使用，例如： my @a = (); testarray(/@); 然后函数的实现：sub testarray{my $a = $_[0];#$#{$$a} ??#push(@{$$a},"b");???}谢谢。

Answer 1

sub test {
my $ref = shift;
push @$ref,'d';
push @{$ref},'e';
}

my @x = qw/a b c/;
test ( \@x );
print @x;

Answer 2

$#{$a}
push @{$a},$sth