|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Paul Kulchenko 2:5020/400 08 May 2000 22:49:32 To : All Subject : Re: Вывод результатов поиска -------------------------------------------------------------------------------- Hi, Vladimir! Vladimir Jouravlev wrote in message <8f65m8$mgn$1@dragon.infopro.spb.su>... >Поиск по сайту шарит по файлам и ищет слово "елочка". >Hаходит выражение: "В лесу родилась елочка, в лесу она росла". > >Результат поиска должен быть в виде искомого слова в контексте: >" ... родилась елочка, в лесу о ..." > >Для этого я придумал такую конструкцию: >================================= >if ($string =~ /(.*)елочка(.*)/i) { > $end = $2; > @beg = split (//, $1); > @beg = reverse @beg; > $beg = join (//, @beg); > $beg = substr($beg,0,10); > @beg = split (//, $beg); > @beg = reverse @beg; > $beg = join (//, @beg); > > $end = substr($end,0,10); >==================================== В общем-то неплохо, но достаточно ($beg, $end) = $string =~ /(.{0,10})\bелочка\b(.{0,10})/i; >И потом в выводе результата: >print "...$beg<font color=\"Red\"><b>елочка</b></font>$end..."; Best wishes, Paul. --- ifmail v.2.15dev5 * Origin: Rostelecom/Internet Centre (2:5020/400) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/6552b4e0099d.html, оценка из 5, голосов 10
|