求助：perl中delete掉二维数组中的某些元素后怎样打印数组剩余元素？

小猪Gina

my @array=(
                        [1,2,3],
                        [4,5,6],
                        [7,8,9],
                );
delete $array[1][1];
for my $aref ( @array ) {
    print "@$aref \n";
}

期望结果：有被delete掉元素的那一行剩余的元素向前移，输出时不要提示未定义。

ludio333

perl -e '@array=([1,2,3],[4,5,6],[7,8,9],);splice(@{$array[1]},1,1);for(@array){print "@$_\n"}'

小猪Gina

回复 2# ludio333


    谢谢~

小猪Gina

回复 2# ludio333


    那如果一行删掉了两个元素（跳着删，不连续删），甚至更多元素呢？
比如二维数组：
a1 + 1 3 2 5 4 5 6 8
a1 - 2 4 3 5 5 6 7 8
a2 + 3 7 4 6
a2 - 1 5 7 9

删掉后希望得到：
a1 + 1 5 6 8
a1 - 2 6 7 8
a2 + 3 7
a2 - 1 5 7 9

小猪Gina

回复 2# ludio333


    已经会了，就是从后往前删，谢谢你告诉我splice这个函数