Каково различие между итерацией по файлу с foreach или в то время как в Perl?

В дополнение к предыдущим ответам другое преимущество использования while - то, что можно использовать $. переменная. Это - текущий номер строки последнего дескриптора файла, к которому получают доступ (см. perldoc perlvar ).

while ( my $line = <FILE> ) {
    if ( $line =~ /some_target/ ) {
        print "Found some_target at line $.\n";
    }
}

В скалярном контексте (т.е. while) <FILE> возвраты каждая строка в свою очередь.

В контексте списка (т.е. foreach) <FILE> возвращает список, состоящий из каждой строки из файла.

Необходимо использовать while создать.

См. perlop - Операторы ввода-вывода для больше.

Править: j_random_hacker справедливо говорит это

while (<FILE>) { … }

топчет $_ в то время как foreach не делает (foreach, локализует $_ сначала). Конечно, это - самое важное поведенческое различие!

Обновление: j случайный хакер указывает в комментарии что особые случаи Perl тест ошибочности в некоторое время цикле при чтении из дескриптора файла. Я только что проверил, что чтение ложного значения не завершит цикл - по крайней мере, на современном жемчуге. Извините за регулирование Вас неправильно. После 15 лет записи Perl я - все еще новичок.;)

Все выше правы: используйте while цикл, потому что это будет большей эффективной памятью и даст Вам больше контроля.

А забавная вещь о том while цикл, хотя то, что это выходит, когда чтение является ложью. Обычно это будет концом файла, но что, если он возвратит пустую строку или 0? Ой! Из Вашей программы просто выходят слишком скоро. Это может произойти на любом дескрипторе файла, если последняя строка в файле не имеет новой строки. Это может также произойти с пользовательскими объектами файла, которые имеют метод чтения, который не рассматривает новые строки тот же путь как регулярные объекты файла Perl.

Вот то, как зафиксировать его. Проверьте на неопределенное чтение значения, которое указывает на конец файла:

while (defined(my $line = <FILE>)) {
    print $line;
}

foreach цикл не имеет этой проблемы между прочим и корректен даже при том, что неэффективный.

j_random_hacker упомянул это в комментариях к этому ответу , но фактически не поместил его в ответ само по себе, хотя это еще одно отличие, о котором стоит упомянуть.

Разница в том, что while () {} перезаписывает $ _ , а foreach (< FILE>) {} локализует его. То есть:

$_ = 100;
while (<FILE>) {
    # $_ gets each line in turn
    # do something with the file
}
print $_; # yes I know that $_ is unneeded here, but 
          # I'm trying to write clear code for the example

распечатает последнюю строку .

Однако

$_ = 100;
foreach(<FILE>) {
    # $_ gets each line in turn
    # do something with the file
}
print $_;

распечатает 100 . Чтобы получить то же самое с while (<