Question

perl将一堆数组复制给并赋值给另一堆数组

比如一个函数
sub func {
my (@h,@p,@f) = @_;

print join(" ",h)."\";
print join(" ",p)."\";

print join(" ",f)."\";
}
调用的时候
@a1 = (1,2,3);
@a2 = (1,2,3,4)
@a3 = (1,2)
&func(@a1,@a2,@a3);
--------------------------------------
问题是：输出的时候，三个数组的内容都被放在@h中了。

===========================
所以想问，如果要实现把函数输入的参数数组分别赋值到函数内部的数组中去，该怎么搞

Answer 1

sub func {
my (@h,@p,@f) = ❪@{$_[0]}, @{$_[1]}, @{$_[2]} ❫;
…
}

&func(\@a1,\@a2,\@a3);