Строки 38-77. Метод getline (). Это— самая интересная часть модуля. При входе в эту подпрограмму элемент $_[0] (первый параметр в массиве параметров подпрограммы) со­держит скалярную переменную, которая примет считанную строку, например, информацию с веб страницы для которой была выполнена поисковая оптимизация сайта и скорректированы все ключевые моменты. Для изменения этой пере­менной в вызывающем коде мы ссылаемся непосредственно на элемент $ [0], а не копируем

его в локальную переменную обычным образом.

Поскольку операция ввода выполняется в буферизованном режиме, эта подпрограмма должна быть готова сообщить вызывающей подпрограмме о том, какие условия встретились ранее. Работа начинается с проверки флажков eof и error. Если при последнем вызове этой под­программы был обнаружен признак конца файла eof, возвращается числовое значение 0. В ином случае, если была обнаружена ошибка, возвращается значение undef .

Во внутреннем буфере этой подпрограммы уже может находиться полная строка, которая ос­талась после предыдущего чтения. Применяется встроенная функция index () языка Perl для поиска следующей последовательности символов с обозначением конца строки в буфере; функция возвращает информацию о местонахождении этой последовательности. Вместо же­сткого кодирования символов обозначения конца строки, применяется текущее содержимое глобальной переменной $/. Кроме того, поиск можно немного оптимизировать, запомнив, в ка­ком месте он был остановлен в прошлый раз. Эта информация будет храниться в поле index. Результат выполнения функции index () сохраняется в локальной переменной $i.