Регулярные выражения (шаблоны).

В данной главе описывается синтаксис регулярных выражений. Чаще всего в Perl они используются в операторах поиска и замены таких как s//, m/, операторах связки =~ или != и т.д. Как правило все эти операторы имеют схожие опции такие как: i- не различать строчные и заглавные буквы.m- считать строку многострочной.s- однострочная строка.x- расширенный синтаксис ( использование пробелов и комментариев)

Обычно все эти опции обозначают как '/x'. Их можно использовать даже внутри шаблонов, используя новую конструкцию (?...)

Регулярные выражения или шаблоны (pattern) то же самое, что и regexp процедуры в Unix. Выражения и синтаксис заимствованы из свободно распространяемых процедур V8 Генри Спенсера (Henry Spencer), там же они подробно и описаны.

В шаблонах используются следующие метасимволы (символы обозначающие группы других символов) часто называемые egrep - стандартом: \- считать следующий метасимвол как обычный символ.^- начало строки.- один произвольный символ. Кроме '\n' - конец строки.$- конец строки|- альтернатива (или)()- группировка[]- класс символов

Метасимволы имеют модификаторы (пишутся после метасимвола): *- повторяется 0 или большее число раз+- -//- 1 или большее число раз?- 1 или 0 раз{n}- точно n раз{n,}- по меньшей мере раз{n,m}- не меньше n, но и не больше m

Во все других случаях фигурные скобки считаются обычными (регулярными) символами. Таким образом '*' эквивалентна {0,} , '+' - {1,} и '?' - {0,1}. n и m не могут быть больше 65536.

По умолчанию действие метасимволов "жадно" (greedy). Совпадение распространяется столько раз, сколько возможно, не учитывая результат действия следующих метасимволов. Если вы хотите "уменьшить их аппетит", то используйте символ '?'. Это не изменяет значение метасимволов, просто уменьшает распространение. Таким образом: *?- станет 0 и более+?- 1 и более??- 0 или 1 раз{n}?- точно n раз{n,}?- не меньше n раз{n,m}?- больше или равно n и меньше m раз

Шаблоны работают так же, как и двойные кавычки, поэтому в них можно использовать `\` - символы (бэкслэш-символы): \t- символ табуляции\n- новая строка\r- перевод каретки\а- перевод формата\v- вертикальная табуляция\a- звонок\e- escape\033- восьмеричная запись символа\x1A- шестнадцатеричная\c[- control символ\l- нижний регистр следующего символа\u- верхний регистр -//-\L- все символы в нижнем регистре до \E\U- в верхнем -//-\E- ограничитель смены регистра\Q- отмена действия как метасимвола

Дополнительно в Perl добавлены следующие метасимволы: \w- алфавитно-цифровой или '_' символ\W- не -//- \s- один пробел\S- один не пробел\d- одна цифр\D- одна не цифра

Обратите внимание, что все это "один" символ. Для обозначения последовательности применяйте модификаторы. Так: \w+- слово\d+- целое число[+-]?\d+- целое со знаком[+-]?\d+\.?\d*- число с точкой Кроме того существуют мнимые метасимволы. Обозначающие не существующие символы в месте смены значения. Такие как: \b- граница слова\B- не граница слова\A- начало строки\Z- конец строки\G- конец действия m//g

Граница слова (\b) - это мнимая точка между символами \w и \W. Внутри класса символов '\b' обозначает символ backspace (стирания). Метасимволы \A и \Z - аналогичны '^' и '$', но если начало строки '^' и конец строки '$' действуют для каждой строки в многострочной строке, то \A и \Z обозначают начало и конец всей многострочной строки.

Если внутри шаблона применяется группировка (круглые скобки), то номер подстроки группы обозначается как '\цифра'. Заметьте, что за шаблоном в пределах выражения или блока эти группы обозначаются как '$цифра'. Кроме этого существуют дополнительные переменные: $+- обозначает последнее совпадение$&- все совпадение$`- все до совпадения$'- все после совпадения

Пример:

$s = "Один 1 два 2 и три 3";
if ($s =~ /(\d+)\D+(\d+)/)
    {
        print "$1\n";    # Результат '1'
        print "$2\n";    # '2'
        print "$+\n";    # '2'
        print "$&\n";    # '1 два 2'
        print "$`\n";    # 'Один '
        print "$'\n";    # ' и три 3'
   }

$s = "1+2-3*4";
if ($s =~ /(\d)(?=-)/)  # Найти цифру за которой стоит '-'
    {
        print "$1\n";   # Результат '2'
   }
else { print "ошибка поиска\n";}


        (?!шаблон)         - "заглядывание" вперед по отрицанию.

$s = "1+2-3*4";
if ($s =~ /(\d)(?!\+)/) # Найти цифру за которой не стоит '+'
    {
        print "$1\n";   # Результат '2'
   }
else { print "ошибка поиска\n";}