![]() ![]() |
Интересные решения Perl. Вопросы и ответыКак узнать, является ли строка адресом электронной почты
sub is_mail($) {
my $m = shift || '';
$m =~ s/^mailto://;
if (($m =~ /[,|\/\\]|(@.*@)|(\.\.)|(\.$)/) || ($m !~/^[\w\-\.]+[\%\+]?[\w\-\.]*\@[0-9a-zA-Z\-]+\.[0-9a-zA-Z\-\.]+$/)) {
return 0;
} else {
return 1;
}
}
Предложенная функция является частью модуля SUS::Is_X авторской системы управления содержимым динамического web-сайта. Опубликовано: 15 апреля 2006 года. Комментарии посетителей сайта
|
|
© Алексей Кощеев, г.Киров, 2001-2023 |
|