|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Ilia Vinokurov 2:5020/400 22 Feb 2006 16:01:04
To : Alexander V. Gaiduk
Subject : Re: выделенная фраза
--------------------------------------------------------------------------------
Hello, Alexander!
You wrote on Thu, 16 Feb 2006 14:12:18 +0000 (UTC):
AVG> есть движок довольно обьемного (по количеству текстовых материалов)
AVG> сайта, написанный мной на Apache::ASP (mod_perl).
AVG> реализована система поиска, - обыкновенный select по словам поисковой
AVG> фразы. работает приемлимо, но не это главное.
AVG> хочецца чтоб оно еще и подпригивало :)
AVG> точней, когда я кликаю на ссылку на документ на странице результатов
AVG> поиска, чтоб мне показывался сам документ (это уже есть) и чтоб в этом
AVG> документе искомое слово было подсвечено!
AVG> как говорицца - задумано == сделано:
AVG> my $refstr = "набор слов искомой строки";
AVG> $refstr =~ s/\s+$//;
AVG> $refstr =~ s/^\s+//;
AVG> $refstr =~ s/\s+/\|/g;
AVG> $pagecontent =~ s/($refstr)/<span
AVG> style='background-color:#a0ffa0'>$1<\/span>/gi;
Почитай http://ilvin.msk.ru/Sources/Perl/HTML-Parser/HTML-Parser.htm
может поможет...
With best regards, Ilia Vinokurov. E-mail: ilvin@ilvin.msk.ru
--- ifmail v.2.15dev5.3
* Origin: COMSTAR Telecommunications (2:5020/400)
Вернуться к списку тем, сортированных по:
|
