Perlでファイル内の重複行を削除して表示したい場合、リスト内の同じ値を取り除く場合同様、 ハッシュを使えば簡単にできます。 del_dup.pl my %hash = (); while(<>) { print unless $hash{$_}++; } ファイル(happybirthday.txt)で実行した結果 % cat happybirthday.txt Happy Birthday to You! Happy Birthday to You! Happy Birthday Dear Tux! Happy Birthday to You! Happy Birthday Dear Tux! % del_dup.pl happybirthday.txt Happy Birthday to You! Happy Birthday Dear Tux! ファイル内容をソートして、重複行を削