如何在一个二维数组的后面插入一个一维数组？我写了一个函数，不知有没有更好的办法

clzzclzz

1. 
   
2. sub PushArray {
   
3. my $array1 = shift;
   
4. my $array2 = shift;
   
5. my $lastPos = @{$array1};
   
6. my $m;
   
7. for $m (0 .. $#{@{$array2}}) {
   
8. $array1->[$lastPos][$m] = $array2->[$m];
   
9. }
   
10. return;
    
11. };
    

复制代码

apile

直接$array1->[$lastPos] = $array2;
就好啦....