Главная страница


ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Konstantin Stupnik                   2:5020/400     09 Oct 2001  08:40:28
 To : ‚« ¤Ё¬Ёp ѓpҐЎ­Ґў
 Subject : Re: regexp
 -------------------------------------------------------------------------------- 
 
 Hi!
 
 Вот что значит спешка :(
 
 Вот так попробуй:
 $text=~s#(http://[^'";\s]+)(?<![,.!?])#<a href="$1">
 <font color="white">$1</font></a>#gi;
 
 Полноценного решения не существует, если
 не делать определённых допущений относительно тескста.
 --
 Best regards,
   Konstantin.
 Brainbench MVP for perl.
 "Владимиp Гpебнев" <Владимиp.Гpебнев@p2.f4.n5059.z2.fidonet.org> wrote in
 message news:1002570123@p2.f4.n5059.z2.ftn...
 
 >                 Vladimir.Grebnev@p2.f4.n5059.z2.fidonet.org
 >
 > Здравствуй Konstantin!
 >
 > Konstantin Stupnik писал к Владимиp Гpебнев:
 >
 >  >> $text=~s/(http:\/\/\S+)([\.*\,*\;*\:*\'* ])/<A href="$1"><font
 >  >> color=white>$1<\/font><\/A>$2/gi;
 >
 >  KS> Кто тебе сказал, что в чарклассах можно использовать *?
 >
 >  KS> Hаверное где-то так:
 >  KS> $text=~s#(http://[^'";\s]+)(?!\.!\?)#<a href="$1">
 >  KS> <font color="white">$1</font></a>/gi
 >
 > Что то ни один, не пpошел вот такой "Ляляфа заходи на
 
 http://www.my.net/~var."
 
 > записывает <a href="http://www.my.net/~var."> ?:-(
 >
 > Удачи, с уважением, Владимиp.  (aka Док - www.tl.ru/~bag, mailto:
 
 vag@tl.ru)
 
 >
 >   Now playing: Татy - Hас Hе Догонят [stopped]
 >
 >              [/PENZA-BEER/][_Hate NATO_][*ПГУ FOREVER*][#Penza-rulez#]
 >
 Отправлено через сервер Talk.Ru - http://www.talk.ru
 --- ifmail v.2.15dev5
  * Origin: Talk.Ru (2:5020/400)
 
 

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

 Тема:    Автор:    Дата:  
 regexp   ‚« ¤Ё¬Ёp ѓpҐЎ­Ґў   05 Oct 2001 16:46:20 
 Re: regexp   vilfred   06 Oct 2001 12:43:26 
 regexp   Alexander Bolotnov   06 Oct 2001 10:49:32 
 regexp   Sergey Smagin   07 Oct 2001 00:52:43 
 Re: regexp   Konstantin Stupnik   08 Oct 2001 10:17:01 
 Re: regexp   ‚« ¤Ё¬Ёp ѓpҐЎ­Ґў   08 Oct 2001 19:40:22 
 Re: regexp   Konstantin Stupnik   09 Oct 2001 08:40:28 
Архивное /ru.perl/6488e8789f11.html, оценка 2 из 5, голосов 10
Яндекс.Метрика
Valid HTML 4.01 Transitional