|
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
|