Ответ.

История вопроса:

Цикл while — один из базовых управляющих конструкций Perl, используемый с самого начала для обработки данных, чтения файлов и итерации по коллекциям. Он тесно интегрирован с особой переменной $_, которая по умолчанию принимает значения при чтении строк из файла или других итерациях.

Проблема:

Неправильное использование переменной $_, чтение файлов без явных дескрипторов и некорректное завершение циклов приводят к ошибкам обработки строк и потере данных. Автоматическая обработка по умолчанию с использованием $_ повышает гибкость, но требует внимательности при написании кода, особенно при вложениях и модификациях строки внутри цикла.

Решение:

Для чтения файлов часто используют выражение

while (<FILEHANDLE>) {
    # ...
}

или даже просто while (<>) для чтения с потока ввода или списка файлов, переданных скрипту. Внутри такого цикла Perl автоматически помещает считанную строку в $_, что позволяет лаконично использовать регулярные выражения, замену и другие операции. Если необходимо явно обозначить переменную, используют конструкцию while (my $line = <FILEHANDLE>).

Пример кода:

open my $fh, '<', 'file.txt' or die $!;
while (<$fh>) {
    chomp;                # работает с $_
    print "Строка: $_
";
}
close $fh;

Ключевые особенности:

Автоматическая работа с переменной $_ внутри тела цикла
Чтение строк из файлов или STDIN через оператор <>
Возможность лаконичной обработки данных без явного указания переменных

Вопросы с подвохом.

Если в цикле while изменить $_, что произойдет?

Изменение $_ внутри цикла не затрагивает сам считанный файл, а только значение переменной в рамках одной итерации. Однако повторное использование $_ может сбить с толку, если одновременно работать с несколькими источниками данных.

Что произойдет, если использовать while (<>) без предварительного открытия файла?

Оператор <> без явного открытия файла читает либо из STDIN, либо из файлов, указанных в @ARGV при запуске скрипта. Если ничего не указано, ожидает ввод с клавиатуры.

Обязательно ли использовать chomp внутри while для удаления ?

Нет, не обязательно, но без chomp каждая строка будет содержать символ новой строки . Это часто вызывает неожиданные результаты (например, двойные переводы строк при печати).

Типовые ошибки и анти-паттерны

Неиспользование chomp, когда это требуется
Переопределение $_ во вложенных циклах без сохранения прошлого значения
Использование while (<>), не учитывая отсутствие входных данных

Пример из жизни

** Негативный кейс

В скрипте, парсящем логи, забыли добавить chomp внутри while (<FILE>), из-за чего появлялись лишние перевод строки при консольном выводе.

Плюсы:

Быстрая реализация

Минусы:

Некорректное форматирование вывода

** Позитивный кейс

Разработчик всегда использует чёткое объявление переменных через my $line = <$fh> и chomp сразу после чтения строки.