2010-05-17 改行の削除 perl open my $fh, '<', $file or die $!; while (<$fh>) { # chomp; s/\r?\n$//; # 0D0Aのときがあったので push @list, $_ unless /^$/; } close $fh; レコード区切り文字 $/ を設定して chomp してもいいのだが、Windows だと 0D0A、Linux だと 0A となり、ファイルがどこで作られるかまちまちのため。 参考 Perlメモ