Почему эта программа для чтения файла вызывает бесконечный цикл?

Question

Я хотел найти программу для чтения и записи файла построчно.

Поиск в Google я нашел Как читать и писать файлы на Perl на первой странице результатов. Он содержит следующий код для чтения файла и записи каждой строки в стандартный вывод:

#!/usr/local/bin/perl

open(MYFILE, 'data.txt');

while ( ) {
    chomp;
    print "$_\n";
}

close(MYFILE);

Когда я запускаю эту программу (используя Perl 5.18.2 в Ubuntu), она бесконечно печатает переводы строки, пока я не остановлю ее. В чем проблема?

Answer 1

Указанное выше выражение while неверно: «while ()» совпадает с «while (1)» и вызывает бесконечный цикл.

Измените строку следующим образом, и код работает:

while (<MYFILE>) {