配列の重複削除について

質問

配列の重複削除について教えて下さい。
普通の重複チェックとは違い、３つの配列
それぞれに値があり、添え字が0から同じ
ように始まり、3つの配列が全て同じものは、
例えば、
配列A[2]='30' 配列B[2]='000' 配列C[2]='1'
配列A[4]='30' 配列B[4]='000' 配列C[4]='1'
は、１つの添え字にまとめたい。
その3つが一致したもの重複をまとめたいのと、
新しく出た３つの値は残したいのです。

つまり、以下のように抽出したいのです。
何か良い方法があれば教えて下さい。

perlで作成しています。
注）配列Cは空白もあります。

配列A（ 10, 20, 30, 10, 30, 20)
配列B（000,010,000,010,000,000）
配列C（　 , 0, 1, 0, 1, 1)

↓
配列D（ 10, 20, 30, 10, 20)
配列E（000,010,000,010,000）
配列F（　 , 0, 1, 0, 1)

回答No.1

k_o_r_o_c_h_a_n · ベストアンサー

連想配列を使えば良いと思います。

テストしてませんが．．こんな感じで。

# 配列Ａ => @LA , 配列Ｂ => @LB , 配列Ｃ => @LC
# 配列Ｄ => @LD , 配列Ｅ => @LE , 配列Ｆ => @LF
for(0 .. $#LA)$X{$LA[$_],$LB[$_],$LC[$_]=$_;}
for(values(%X))
{
push(@LD,$LA[$_]);
push(@LE,$LB[$_]);
push(@LF,$LC[$_]);
}

お礼

うまくできました。
有難うございました。