Perlを使って、大文字小文字関係なく、重複行を削除したい。

質問

現在、下記のコードで重複行を削除し、ファイルを作成しているのですが、
AAA
aaa
AaA
などのように大文字、小文字が混じっている場合は重複とはみなさず削除の対象になりません。
こういった場合も重複とみなして削除させたいのですがどのようにすればいいでしょうか？

open(IN, "INfilename.txt");
open(OUT, ">Outfilename.txt");
while(){
if(!exists($count{$_})){$count{$_}++;print OUT $_;}
}
close (IN);
close (OUT);

回答No.1

t140 · ベストアンサー

＃ハッシュのキーを大文字か小文字に統一してチェックするのがポイントになるでしょう。

while (<DATA>){
$check{"\L$_"}++ and next;
print;
}
__END__
AAA
aaa
AaA