perl - Perl 只读取我文件的最后一行？

Question

好的，我有一个文件，其中包含 5000 多个名称的列表，每行一行；该文件是使用 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"字符。