Forum Webscript.Ru

Программирование => Perl => Тема начата: Error202 от 13 Декабря 2006, 14:34:48

Название: Как вытащить чать текста?
Отправлено: Error202 от 13 Декабря 2006, 14:34:48
Здравствуйте!

Есть переменная $text, в ней 1Мб текста...
Есть $query - запрос пользователя...

Как сделать так, чтобы из $text вырезался кусок в 200 символов, который бы содержал полностью или частично $query?
Название: Как вытащить чать текста?
Отправлено: ravshaniy от 13 Декабря 2006, 14:40:30
хы, и еще наверно чтобы сначала поиск был словосочетания целеком, потом проверка словосочетания на возможные варианты со сменой окончаний, потом каждого слова в отдельности без окончания, и еще этот скрипт должен предположить а не имел ли пользователь в виду другую фразу? и вывести любые возможные синонимы? )) надеюсь я угадал, ато как то не уместна будет ирония
Название: Как вытащить чать текста?
Отправлено: Error202 от 13 Декабря 2006, 15:16:05
:) да нет... Ладно, буду регекспом по первому слову вырезать...
Название: Как вытащить чать текста?
Отправлено: arto от 13 Декабря 2006, 16:13:50
$text =~ m#\\Q$query\\E# && substr ($&.$\',0,200)
Название: Как вытащить чать текста?
Отправлено: Error202 от 13 Декабря 2006, 18:14:32
Спасибо!