6.13. Неформальный поиск 209

6.13. Неформальный поиск

проблема

требуется выполнить неформальный поиск по шаблону.

Задача часто возникает в ситуации, когда пользовательский ввод может быть неточным или содержащим ошибки.

Решение

Воспользуйтесь модулем String :Арргох от CPAN:

use Strin Approx qw(amatch),

if (amatch( ШАБЛОН , ©list)) { # Совпадение

©matches = amatch( ШАБЛОН , ©list),

Комментарий

Модуль String::Approx вычисляет, насколько шаблон отличается от каждой строки списка. Если количество односимвольных вставок, удалений или замен для получения строки из шаблона не превышает определенного числа (по умолчанию 10 процентов длины шаблона), строка «совпадает» с шаблоном. В скалярном контексте amatch возвращает количество успешных совпадений. В списковом контексте возвращаются совпавшие строки.

use String Approx qw(amatch),

open(DICT /usr/dict/words or die Can t open diet S ,

while(<OICT>) {

print if amatch( balast ),

ballast

ballustrade

blast

blastula

sandblast

Функции amatch также можно передать параметры, управляющие учетом регистра и количеством допустимых вставок, удалений и подстановок. Параметры передаются в виде ссылки на список. Они полностью описаны в документации по String;:Approx.

Следует заметить, что поисковые функции модуля работают в 10-40 раз медленнее встроенных функций Perl. Используйте String::Approx лишь в том случае, если регулярные выражения Perl не справляются с неформальным поиском.

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

Документация по модулю String:-Арргох от CPAN; рецепт 1.16.

6.14. Поиск от последнего совпадения

Проблема

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

Такая возможность пригодится при многократном извлечении фрагментов данных из CTIOKH.

Решение

Воспользуйтесь комбинацией модификатора /д, метасимвола \G и функции pos.

Комментарий

При наличии модификатора /д механизм поиска запоминает текущую позицию в строке. При следующем поиске с /д совпадения ищутся, начиная с сохраненной позиции. Это позволяет создать цикл while для извлечения необходимой информации из строки:

while (/(\d+)/g) {

print "Found $1\n";

Присутствие \G в шаблоне привязывает поиск к концу предыдущего совпадения. Например, если число хранится в строке с начальными пробелами, замена каждого пробела нулем может выполняться так:

$п = " 49 here"; $п =~ s/\G /О/g; print $n; 00049 here

\G часто применяется в циклах while. Например, в следующем примере анализируется список чисал, разделенных запятыми: f

while (/\G,?(\d+);g) (

print "Found number $1\n"; } " >

Если поиск закончился неудачей (например, если в последнем примере кончились числа), сохраненная позиция по умолчанию перемещается в начало строки. Если это нежелательно (например, требуется продолжить поиски с текущей позиции, но с другим шаблоном), воспользуйтесь модификатором /с в сочетании с /д:

$ = "The year 1752 lost 10 days on the 3rd of September";

while (/(\d+)/gc) {

print "Found number $1\n";

If (/\G(\S+)/g) {

print "Found $1 after the last number.\n";

6.15. Максимальный и минимальный поиск 211

Found numeral 1752 Found numeral 10 Found numeral 3

Found rd after the last number.

Как видите, при последовательном применении шаблонов можно изменять позицию начала поиска с помощью модификатора /д. Позиция последнего совпадения связывается со скалярной величиной, в которой происходит поиск, а не с шаблоном. Позиция не копируется вместе со строкой и не сохраняется оператором local.

Позиция последнего совпадения читается и задается функцией роз. Аргументом функции является строка, для которой читается или задается позиция последнего совпадения. Если аргумент не указан, роз работает с переменной $ :

print "The position in \$a is ", pos($a); pos($a) = 30;

print The position in \$ is ", pos; pos = 30;

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

Описание модификатора /д в perlre( 1).

6.15. Максимальный и минимальный поиск

проблема

Имеется шаблон с максимальным квантификатором - ♦,+,? или {}. Требуется перейти от максимального поиска к минимальному.

Классический пример - наивная подстановка для удаления тегов из HTML-документа. Хотя s#<TT>. .</TT>##gsi выглядит соблазнительно, в действительности будет удален весь текст от первого открывающего до последнего закрывающего тега ТТ. От строки "Even <TT>vi</TT> can edit <TT>troff</TT> effectively." остается лишь "Even effectively" - смысл полностью изменился!

Решение

Замените максимальный квантификатор соответствующим минимальным. Другими словами, *, +, ? или {} соответственно заменяются *?,+?,??и{}?.

Комментарий

в Perl существуют два набора квантификаторов: максимальные (♦, +, ? и {}) и минимальные (*?, +?, ?? и {}?). Например, для строки Perl is а Swiss Army Chainsaw!" шаблон/(г. .s)/совпадете "rl is a Swiss Army Chains", a шаблон /(r. .?s)/ - с "rl is".

Также часто называемые «жадными» (greedy) и «скупыми» (stingy) квантификаторами. - Примеч. перев.