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

Question

好的我有一个超过5000个名字的文件，每个名字一行; 该文件是使用microsoft excel生成的txt文件。 下面的代码给了我一个输出。

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.I试图输出列表及其文件的最后一行。 但是我尝试了10个名字的小版本的代码，我自己手工提取它并且它工作得非常好，所以我认为它与分隔符有关？

请帮忙。

伊恩

Answer 1

尝试

local $/ = "\r";

在文件阅读之前。它将输入记录分隔符更改为"\r"字符。