[> Смотри также ---

Описание переменной $/ вperlvar(l) и в главе 8; описание функции sp* perlfunc(l).

6.8. Извлечение строк из определенного интервала

Требуется извлечь все строки, расположенные в определенном интервале. 0нтР" вал может быть задан двумя шаблонами (начальным и конечным) или ноМРОМ первой и последней строки.

Часто встречающиеся примеры - чтение первых 10 строк файла (строки с 1 или основного текста почтового сообщения (все, что следует после пустой сТр"")-

Решение

Используйте оператор . . или ... для шаблонов или номеров строк. В оТличие от . . оператор ... не возвращает истинное значение, если оба условия вЫf° ются в одной строке.

while (О) {

if (/НАЧАЛЬНЫЙ ШАБЛОН/ .. /КОНЕЧНЫЙ ШАБЛОН/) {

# Строка находится между начальным

# и конечным шаблонами включительно.

>

>

while (о) {

If ($НОМЕР НАЧАЛЬНОЙ СТРОКИ . $НОМЕР КОНЕЧНОЙ СТРОКИ) {

# Строка находится между начальной

# и конечной включительно.

>

>

Если первое условие оказывается истинным, оператор ... не проверяет второе условие.

while (О) {

If (/НАЧАЛЬНЫЙ ШАБЛОН/ ... /КОНЕЧНЫЙ ШАБЛОН/) {

# Строка находится между начальным

# и конечным шаблонами, расположенными в разных строках.

>

>

while (о) {

If ($НОМЕР НАЧАЛЬНОЙ СТРОКИ .. $НОМЕР КОНЕЧНОЙ СТРОКИ) {

# Строка находится между начальной

п и конечной, расположенными в разных строках.

>

>

Комментарий

Из бесчисленных операторов Perl интервальные операторы . . и ..., вероятно, вызывают больше всего недоразумений. Они создавались для упрощения выборки интервалов строк, чтобы программисту не приходилось сохранять информацию о состоянии. В скалярном контексте (например, в условиях операторов if и while) эти операторы возвращают true или false, отчасти зависящее от предыдущего состояния. Выражение левый операнд . . правый операнд возвращает false до тех пор, пока левый операнд не станет истинным. Когда это условие выполняется, левый операнд перестает вычисляться, а оператор возвращает true до тех пор, пока не станет истинным правый операнд. После этого цикл начинается заново. Другими словами, истинность первого операнда «включает» конструкцию, а истинность второго операнда «выключает» ее.

Условия могут быть абсолютно произвольными. В сущности, границы интервала могут быть заданы проверочными функциями mytestfunc(1) . . mytestfunc(2), хотя на практике это происходит редко. Как правило, операндами интервальных операторов являются либо номера строк (первый пример), шаблоны (второй пример) или их комбинация.

# Командная строка для вывода строк с 15 по 17 включительно (см. ниже) perl -пе print if 15 .. 17 datafile

# Вывод всех фрагментов <ХМР> .. </ХМР> из документа HTML while (о) {

print if (i)#<XMP>#i .. m#</XMP>#i;

# To же, HO в виде команды интерпретатора

% perl -ne print if (i)#<XMP>#i .. m#</XMP>#i document.html

Если хотя бы один из операндов задан в виде числовой константы, интервальные операторы осуществляют неявное сравнение с переменной $. ($NR или $INPUT LINE NUMBER при действующей директиве use English). Поосторожнее с неявными числовыми сравнениями! В программе необходимо указывать числовые константы, а не переменные. Это означает, что в условии можно написать 3 .. 5, но не $п .. $т, даже если значения $п и $т равны 3 и 5 соответственно. Вам придется непосредственно проверить переменную $..

# Команда не работает

perl -ne BEGIN { $top=3; $bottom=5 } print if $top .. Sbottom /etc/passwd

# Работает

perl -ne BEGIN {$top=3; $bottom=5 } \

print if $. == $top .. $. == $bottom /etc/passwd

# Тоже работает

perl -ne print if 3 .. 5 /etc/passwd

Операторы ,. и .., отличаются своим поведением в том случае, если оба операнда могут оказаться истинными в одной строке. Рассмотрим два случая;

Описание операторов . . и ... в разделе «Range Operator* perlop(iy, описание переменной $NR в per[var{l).

print if /begin/ .. /end/; print If /begin/ ... /end/;

Для строки "You may not end here you begin" оба интервальных оператора возвращают true. Однако оператор .. не будет выводить дальнейшие строки. Дело в том, что после выполнения первого условия он проверяет второе условие в той же строке; вторая проверка сообщает о найденном конце интервала. С другой стороны, оператор . . . продолжит поиск до следующей строки, в которой найдется /end/, - он никогда не проверяет оба операнда одновременно.

Разнотипные условия можно смешивать:

while (о) {

$in header = 1 .. /"$/; $in body = /"$/ .. eof О;

>

Переменная $in header будет истинной, начиная с первой входной строки и заканчивая пустой строкой, отделяющей заголовок от основного текста, - например, в почтовых сообщениях, новостях Usenet и даже в заголовках HTTP (теоретически строки в заголовках HTTP должны завершаться комбинацией CR/ LF, но на практике серверы относятся к их формату весьма либерально). Переменная $in body становится истинной в момент обнаружения первой пустой строки и до конца файла. Поскольку интервальные операторы не перепроверяют начальное условие, остальные пустые строки (например, между абзацами) игнорируются.

Рассмотрим пример. Следующий фрагмент читает файлы с почтовыми сообщениями и выводит адреса, найденные в заголовках. Каждый адрес выводится один раз. Заголовок начинается строкой "From:" и завершается первой пустой строкой. Хотя это определение и не соответствует RFC-822, оно легко формулируется.

%seen =0; while (о) {

next unless /"From:?\s/i .. /"$/;

while (/(["<>(),;\s]+\@[-<>(),;\s3+)/g) { print "$1\n" unless $seen{$1}++;

>

Если интервальные операторы Perl покажутся вам странными, записывайтесь в команды поддержки s2p и а2р - трансляторов для переноса кода sed и awk в Perl. В обоих языках есть свои интервальные операторы, которые должны работать в Perl.

> Смотри также