ダブりを消す

質問

データの中でダブっている行を消したいのですがどうしたらよいでしょうか？
例えば
$a,$b,$c,$d,$e,$f,$g,$h
１,２,３,４,５,６,７,８
１,２,３,４,５,６,７,８
１,１,１,１,１,１,１,１
と三行あって一行目と二行目がダブっているので一つにしたいのです↓。
１,２,３,４,５,６,７,８
１,１,１,１,１,１,１,１

いま作っているのは
while ($record = <FILE>) {
chomp $record;
push @array,$record;
@x = sort keys %{{map {$_,1} @array}};
}
close FILE;
foreach (@x){
print OUT "$_\n";
}
としてやっていますがなかなかうまくいきません。
良い方法があれば教えてください

回答No.3

bonyamk · ベストアンサー

$TMP{$record} = $record;
これは仮想配列です
{}のなかがキーになっていますので
同じ行(キー)があった場合に上書きされてダブりがなくなるってことです

仮想配列についてはperlの本に必ずついていて便利なものなので覚えておくといいですよ＾＾

while ($record = <FILE>) {
chomp $record;
$TMP{$record} = $record;
}
close FILE;
foreach (keys(%TMP)){
print "$_\n";
}
こんな感じで取り出します

お礼

本当に丁寧にありがとうございます。

回答No.2

bonyamk

＃１です
間違えました＾＾；

while ($record = <FILE>) {
chomp $record;
$TMP{$record} = $record;
}

お礼

どうもありがとうございます。
こんなに早くできるとは思いませんでした。
あと恐縮ですが
$TMP{$record} = $record;
の意味を教えていただければうれしいです。

回答No.1

bonyamk

while ($record = <FILE>) {
chomp $record;
$TMP{$_} = $_;
}

だめかな？＾＾；