我如何知道入参数组的最后一个下标？我如何往这个数组中加入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