О себе События Портфолио Статьи Гостевая Фотоальбом На злобу дня Ссылки Учеба Программы
Alex_K (г.Киров) - Алексей Кощеев
Хостинг и регистрация доменов в Кирове

Интересные решения 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 года.

Комментарии посетителей сайта

Андрей    18.07.2010 21:22
  Как изменится вид функции для поддержки кирилических доменов?

Далее: Осуществление HTTP-запросов в Perl
Предыдущий вопрос:Как узнать, является ли переменная числом?
Перейти к списку вопросов
Fanshop.ru

Рейтинг@Mail.ru

Rambler's Top100

© Алексей Кощеев, г.Киров, 2001-2019 хостинг предоставлен компанией Айхэд