ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Victor Mironov                       2:5025/77.11   21 Jun 2002  04:35:08
 To : Dmitry Stepanov
 Subject : Re^2: Yandex regexp
 -------------------------------------------------------------------------------- 
 

 
  >> > А вот теперь внимательнее посмотрел на домен и понял, что не прав.
  >> > $expr =~ /(^|[^a-z\d-])ya(?:ndex)?\.ru/i;
  >> > так наверно лучше.
  >>
  >> Как на счет www.ya.rules.com ?
  >>
  DS> $expr =~ /(?:^|[^a-z\d-])ya(?:ndex)?\.ru(?::|\.?[^a-z\d]|$)/i;
 
 http://www.domain.ru/script.cgi?url=www.yandex.ru
 
 Вообще, этот вопрос интересен с точки зрения разгребания рефереров, а обычно в
 той строке дается "http://" в начале.
 
 my $YANDEX = q{(?i)^.+?//(?:[^.]+\.)*ya(?:ndex)?\\.ru[.:0-9]*/};
 $expr =~ m|$YANDEX|;
 Victor
 
 / Vale tandem, non immemor mei
 
 --- GoldED/W32 3.0.1
  * Origin: ATBIT, Voronezh, Russia (2:5025/77.11)
 
 

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

Тема:    Автор:    Дата:    Yandex regexp   Victor Mironov   20 Jun 2002 02:32:05   Re: Yandex regexp   Dmitry Stepanov   20 Jun 2002 15:45:57   Re: Yandex regexp   Andrey Sapozhnikov   20 Jun 2002 18:19:09   Re: Yandex regexp   Dmitry Stepanov   20 Jun 2002 18:50:47   Re: Yandex regexp   Dmitry Stepanov   20 Jun 2002 18:59:00   Re: Yandex regexp   Andrey Sapozhnikov   20 Jun 2002 19:57:53   Re: Yandex regexp   Dmitry Stepanov   20 Jun 2002 20:45:29   Re^2: Yandex regexp   Victor Mironov   21 Jun 2002 04:35:08   Re: Yandex regexp   Alexander Wolf   21 Jun 2002 07:51:00   Re^2: Yandex regexp   Victor Mironov   06 Jul 2002 21:45:28