|
|
ru.cgi.perl- RU.CGI.PERL ------------------------------------------------------------------ From : Victor Mironov 2:5025/77.11 20 Jun 2002 02:32:05 To : All Subject : Yandex regexp --------------------------------------------------------------------------------
my $YANDEX = q{(?i)^.+?//.*?ya(?:ndex)?\\.ru[.:0-9]*/};
$expr =~ m|$YANDEX|;
Чего тут не хватает?
Victor
/ Together we stand, divided we fall (c) PF
--- GoldED/W32 3.0.1
* Origin: ATBIT, Voronezh, Russia (2:5025/77.11)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.cgi.perl/33233d113f92.html, оценка из 5, голосов 10
|