求助：perl中delete掉二維數(shù)組中的某些元素后怎樣打印數(shù)組剩余元素？

小豬Gina

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

期望結(jié)果：有被delete掉元素的那一行剩余的元素向前移，輸出時不要提示未定義。

ludio333

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

小豬Gina

回復(fù) 2# ludio333


    謝謝~

小豬Gina

回復(fù) 2# ludio333


    那如果一行刪掉了兩個元素（跳著刪，不連續(xù)刪），甚至更多元素呢？
比如二維數(shù)組：
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

回復(fù) 2# ludio333


    已經(jīng)會了，就是從后往前刪，謝謝你告訴我splice這個函數(shù)