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

Question

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

Answer 1

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

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