https://ssl.opennet.dev/openforum/vsluhforumID3/12086.html Обсуждение статьи тематического каталога: Поиск похожих слов на Perl (нечеткий поиск). <br><br>Ссылка на текст статьи: http://www.opennet.ru/base/dev/fuzzy_search.txt.html<br> https://ssl.opennet.dev/openforum/vsluhforumID3/12086.html#2 Mon, 25 Oct 2010 12:42:47 GMT ком<br> https://ssl.opennet.dev/openforum/vsluhforumID3/12086.html#1 Fri, 26 Aug 2005 18:24:38 GMT Можно использовать регулярные выражения<br><br>Во время теста этого метода со словарем Зализняка (108000 слов) скорость<br>поиска опечаток составляла около 60000 слов в секунду.<br><br>#------------------------<br>#!/usr/bin/perl<br><br>#слово, которое проверяем<br>$query="парвоз"; <br><br>#массив со словарём<br>@words=("пароход","паровоз","самолёт"); # и т.д.<br> <br><br>foreach $word(@words) {<br>if ($word =~/^(п(.{0,2})рвоз&#124;па(.{0,2})воз&#124;пар(.{0,2})оз&#124;парв(.{0,2})з&#124;парво(.{0,2}))$/) {<br><br>print "$1"; #здесь и будет "паровоз"<br><br>} #/if;<br>elsif ($word =~/^(п(.{0,3})воз&#124;па(.{0,3})оз&#124;пар(.{0,3})з&#124;парв(.{0,3}))$/) {<br><br>print "$1"; #здесь тоже будет "паровоз"<br><br>} #/elsif;<br><br>} #/foreach;<br><br>#------------------------<br><br>Как загнать "парвоз" в регулярное выражение (с помощью цикла!) подумай сам.