Неформальный поиск
Проблема
Требуется выполнить неформальный поиск по шаблону.
Задача часто возникает в ситуации, когда пользовательский ввод может быть неточным или содержащим ошибки.
Решение
Воспользуйтесь модулем String::Approx от CPAN:
use String::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 dict: $!"
while(<DICT>) {
print if amatch("balast");
}
ballustrade
blast
blastula
sandblast
Функции amatch также можно передать параметры, управляющие учетом регистра и количеством
допустимых вставок, удалений и подстановок. Параметры передаются в виде ссылки на список.
Они полностью описаны в документации по String::Approx.
Следует заметить, что поисковые функции модуля работают в 10-40 раз медленнее встроенных функций Perl.
Используйте String::Approx лишь в том случае, если регулярные выражения Perl не справляются с неформальным поиском.
См. также
Proverte kod v komentariyah gde pro list tam oshibki detskie
Оставить комментарий:
|
|