ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Artur Penttinen                      2:5020/400     12 Oct 2000  01:10:13
 To : Andrey Fedorov
 Subject : Re: Как добавить?
 -------------------------------------------------------------------------------- 
 

 Andrey Fedorov <Andrey.Fedorov@p40.f1230.n5020.z2.fidonet.org> wrote:
 
 AF> Трям - здравствуйте, All!!!
 AF> 
 AF>     Сильно, plz, не пинайте. ;-) Есть строка $_, есть ещё одна $query. Как
 AF> сделать следyющее: выделить тэгами <B> и </B> строкy $query в строке $_, без
 AF> потери регистра (но при поиске $query в $_ регистр не yчитывать)?
 
   s|(\Q$query\E)|<B>$1</B>|gi;
 AF> И ещё, в каком направлении копать: надо выделить как ссылкy в строке, всё
 AF> что начинается с http://
 
   $str =~ s|(https?://[\w.,/&?_+-]+)|<A HREF="$1">$1</A>|g;
   Примерно, можно и дальше улучшать, RFC's 1737 1738 1808 1959
   2016 2017 2032 2056 2079 2111 2122 2168 2192 2224 2255 2276
   2288 2368 2369 2384 2392 2396 2397 2717 2718 2732 2806 2838
 
   perldoc perlre
 
            WBW, Artur
 
 -- 
 Типун вам на ваш великий и могучий русский язык!
 --- ifmail v.2.15dev5
  * Origin: Sonera Ltd. (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    Как добавить?   Andrey Fedorov   11 Oct 2000 22:34:54   Re: Как добавить?   Artur Penttinen   12 Oct 2000 01:10:13   Re: Как добавить?   Alexander Babanov   11 Oct 2000 16:11:09