Perl читает только последнюю строку моего файла?

Question

OK У меня есть файл, который содержит более 5000 имен, по одной строке; Файл является txt-файлом, созданным с помощью microsoft excel. Следующий код дал мне выход 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.I пытался вывести список и его последнюю строку файла. Но я попробовал код на крошечной версии из 10 имен, которые я сам извлек вручную, и это сработало отлично, поэтому я считаю, что это связано с разделителем?

Пожалуйста, помогите.

Ian

Answer 1

Try с

local $/ = "\r"; 

перед чтением файла. Он изменяет разделитель входных данных на символ "\r".