perl - Perl はファイルの最後の行だけを読み取りますか?

Question

OK、5000を超える名前のリストであるファイルがあり、それぞれ1行です。このファイルは、Microsoft Excel で生成された txt ファイルです。次のコードの出力は 1 でした。

open FILEHANDLE, "< listname_FC2-3ss>0.txt";
chomp (my @genelist = <FILEHANDLE>);
close FILEHANDLE;
print "the number of item in the list is ";
print scalar @genelist;

私は '10 macbook air、perl 5.12 を使用しています。リストとファイルの最後の行を出力しようとしました。しかし、自分で抽出した10個の名前の小さなバージョンでコードを試してみたところ、完全にうまく機能したので、区切り文字と関係があると思いますか?

助けてください。

イアン

Answer 1

試してみてください

local $/ = "\r";

ファイル読み込み前。入力レコード区切り文字を"\r"文字に変更します。