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)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    [Q]: Вывод результатов поиска   Vladimir Jouravlev   08 May 2000 14:43:05   Re: Вывод результатов поиска   RockMover   08 May 2000 20:08:26   Re: Вывод результатов поиска   Paul Kulchenko   08 May 2000 22:49:32