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" 字符。