|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Alexander V. Gaiduk 2:5020/400 16 Feb 2006 18:12:18
To : All
Subject : выделенная фраза
--------------------------------------------------------------------------------
Доброго времени суток.
есть движок довольно обьемного (по количеству текстовых материалов) сайта,
написанный мной на Apache::ASP (mod_perl).
реализована система поиска, - обыкновенный select по словам поисковой фразы.
работает приемлимо, но не это главное.
хочецца чтоб оно еще и подпригивало :)
точней, когда я кликаю на ссылку на документ на странице результатов поиска,
чтоб мне показывался сам документ (это уже есть) и чтоб в этом документе
искомое слово было подсвечено!
как говорицца - задумано == сделано:
my $refstr = "набор слов искомой строки";
$refstr =~ s/\s+$//;
$refstr =~ s/^\s+//;
$refstr =~ s/\s+/\|/g;
$pagecontent =~ s/($refstr)/<span
style='background-color:#a0ffa0'>$1<\/span>/gi;
всё было зашибизь, жизнь показалась раем,
пока я не ввел в качестве искомого слова - "table"...
$pagecontent содержит нормально сформированный html код документа.
соответственно по всему $pagecontent получил:
<<span style='background-color:#a0ffa0'>table</span> width=100% ... >
т.е. - все таблички пошли лесом...
аналогично и с другими тэгами и их свойствами.
у кого нить есть мысли более конкретные, чем фраза "надо парсить
$pagecontent" ?
--
С уважением, вебмастер мэрии Архангельска :: ::
$_='q=6I2?56CPw2:5F<Pl82Gp2C94:EJ^CFn';tr#P-~\x20-O#\x20-~#;print;
--- ifmail v.2.15dev5.3
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по:
|
