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

Question

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

Answer 1

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