for $state (@popstates) {

$code = \tif (\$line = /\\b$state\\b/) { print \$line, next, )\n ,

>

$code = } ,

print CODE IS\n----\n$code\n----\n if 0, # Отладочный вывод

eval $code, die If $@>,

Программа popgrep2 генерирует строки следующего вида:

while (defined($line = о) {

if ($line =~ /bCO\b/) { print Sline, next,

if (Sline = /bONW) { print Sline, next

If (Sline = /bMI\b/) { print Sline next,

if (Sline = /bWI\b/) { print Sline, next.

If (Sline ="• /bMN\b/) { print Sline, next, >

Как видите, получается что-то вроде строковых констант, вычисляемых eval. В текст включен весь цикл вместе с поиском по шаблону, что ускоряет работу программы.

Самое неприятное в таком решении - то, что правильно записать все строки и служебные символы довольно трудно. Функция dequote из рецепта 1.11 может упростить чтение программы, но проблема с конструированием переменных, используемых позже, остается насущной. Кроме того, в строках нельзя использовать символ /, поскольку он служит ограничителем в операторе т .

Существует изящный выход, впервые предложенный Джеффри Фридлом (Jeffrey Fnedl). Он сводится к построению анонимной функции, которая кэширу-ет откомпилированные шаблоны в созданном ей замыкании. Для этого функция eval вызывается для строки, содержащей определение анонимной функции, которая проверяет совпадения с передаваемыми ей шаблонами. Perl компилирует шаблон всего только при определении анонимной функции. После вызова eval появляется возможность относительно быстрого поиска.

В примере 6.6 приведена очередная версия программы popgrep, в которой используется данный прием.

Пример б.б. рордгерЗ

#1/usr/bin/perl

# рордгерЗ - поиск строк с названиями штатов

# версия 3 алгоритм с построением вспомогательной функции ©popstates = qw(CO ON MI WI MN),

Sexpr = ]oin( II , map { ni/\\b\Spopstates[S 3\\b/o } 0 $#popstates), Smatch any = eval sub { $expr } , die If $@, while (<>) {

print If &$match any,

В результате функции eval передается следующая строка (за вычетом форматирования):

sub {

m/\b$popstates[0]\b/o m/\b$popstates[1]\b/o m/\b$popstates[2]\b/o m/\b$popstates[33\b/o ra/\b$popstates[4]\b/o

>

Ссылка на массив @popstates находится внутри замыкания. Применение модификатора /о в данном случае безопасно.

Пример 6.7 представляет собой обобщенный вариант этой методики. Создаваемые в нем функции возвращают true, если происходит совпадение хотя бы с одним (и более) шаблоном.

Пример 6.7. grepauth

#1/usr/bin/perl

и grepauth - вывод строк, в которых присутствуют Тот и Nat

Smultimatch = build match all(q/Tom/, q/Nat/), while (о) {

print if &$multimatch,

exit,

sub build match any { build match func( 11 , @ ) } sub build match all { build match func( && , @ ) } sub build match func { my Scondition = shift,

my ©pattern = @ , tt Переменная должна быть лексической,

# а не динамической ту $ехрг = ]01п $condition => map { n\/\$pattern[$ ]/o ) (О $#pattern), my $match func = eval sub { local \$ = shift if $expr } , die if $@, tt Проверить $@, переменная должна быть пустой return $match func,

>

Конечно, вызов eval для интерполированных строк (см. popgrep2) представляет собой фокус, кое-как но работающий. Зато применение лексических переменных в замыканиях, как в рордгерЗ и функциях build match *, - это уже высший пилотаж. Даже матерый программист Perl не сразу поверит, что такое решение действительно работает. Впрочем, программа будет работать независимо от того, поверили в нее или нет.

На самом деле нам хотелось бы, чтобы Perl один раз компилировал каждый шаблон и позволял поздйее ссылаться на него в откомпилированном виде. Такая возможность появилась в версии 5.005 в виде оператора определения регулярных выражений qr . В предьщущих версиях для этого был разработан экспериментальный модуль Regexp с CPAN. Объекты, создаваемые этим модулем, представляют откомпилированные регулярные выражения. При вызове метода match объекты выполняют поиск по шаблону в строковом аргументе. Существуют специальные методы для извлечения обратных ссылок, определения позиции совпадения и передачи флагов, соответствующих определенным модификаторам - например, /i.

6.11. Проверка правильности шаблона 205

В примере 6.8 приведена версия программы popgrep, демонстрирующая простейшее применение этого модуля.

Пример 6.8. popgrep4

#i/usr/bin/perl

# popgrep4 - поиск строк с названиями штатов

# версия 4 применение модуля Regexp use Regexp,

©popstates = qw(CO ON MI WI MN),

©poppats = map { Regexp->new( \b $ \b ) } ©popstates, while (defined($line = <>)) { for $patobj {@poppats) {

print $line if $patobj->match($line),

>

>

Возможно, вам захочется сравнить эти решения по скорости. Текстовый файл, состоящий из 22 ООО строк («файл Жаргона»), был обработан версией 1 за 7,92 секунды, версией 2 - всего за 0,53 секунды, версией 3 - за 0,79 секунды и версией 4 - за 1,74 секунды. Последний вариант намного понятнее других, хотя и работает несколько медленнее. Кроме того, он более универсален.

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

Описание интерполяции в разделе «Scalar Value Constructors* perldata(\), описание модификатора /о вperlre(i); документация по модулю Regexp с CPAN.

6.11. Проверка правильности шаблона

Проблема

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

Решение

Сначала проверьте шаблон с помощью конструкции eval {) для какой-нибудь фиктивной строки. Если переменная $@ не устанавливается, следовательно, исключение не произошло и шаблон был успешно откомпилирован. Следующий цикл работает до тех пор, пока пользователь не введет правильный шаблон.

do {

print Pattern , chomp($pat = о), eval { =- /$pat/ }, warn INVALID PATTERN $@ if $@> } while

Отдельная функция для проверки шаблона выглядит так-