ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : vilfred                              2:5020/400     06 Oct 2001  12:43:26
 To : ‚« ¤Ё¬ЁP ѓPҐЎ­Ґў
 Subject : Re: regexp
 -------------------------------------------------------------------------------- 
 

 hi Vladimir!
 
 > Подскажите плиз наиболее удачный regexp для
 > вылавливания http,
 > вот такой глючит безбожно:
 > $text=~s/(http:\/\/\S+)([\.*\,*\;*\:*\'* ])/<A
 > href="$1"><font
 > color=white>$1<\/font><\/A>$2/gi;
 
 не знаю, как начет наиболее удачного, но у меня такой исправно работает:
 
 #!/usr/bin/perl -wT
 use LWP::Simple;
 use strict;
 my($page,@res);
 $page=get "http://www.astronomynow.com";
 &getlink($page);
 sub getlink{
   local $_=$_[0];
   push(@res, "<a href=http://$2>$2</a><br>")
     while m{href\s*=\s*(["'])http://(.*?)\1\s*(.*?)>(.*?)</a>}igs
 }
 print join "\n", @res;
 
 -- 
 TEAM [Маньяки]
 Отправлено через сервер 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