多次元配列から重複を削除

質問

Perlにて$f[i][j]のような2次元配列でデータを格納しています。
ここの[i]列には重複したデータが入っているので、
それを排除して[i]列の重複なしの配列を新たに作りたいのですが
うまくいきません。

for ($j=0; $j<= $index; $j++){
if($chlist[j]==$f[$i][0]){
$chlist[j]==$f[$i][0];
last;
}
}

こんな感じで作ってみたのですが永遠にデータが入りません。

回答No.2

ryu_chan

こんな感じで重複データを削除できると思います。

@chlist = map { my %seen; [grep !$seen{$_}++, @$_] } @f;

回答No.1

Tacosan

うれしいかどうかは別としてハッシュのキーが (そのハッシュの中で) 一意であることを使うとプログラム上は簡単.