Как проверить адреса электронной почты с Perl

Это действительно, и будет ли это работать? Если вы собираете или используете адреса электронной почты где-либо в своих скриптах и ​​программах Perl, вы, возможно, соберете много адресов, которые не работают. У одного может отсутствовать буква в имени домена, у другого может быть запрещенный символ.

Какими бы ни были причины его недействительности, вы действительно хотите поймать неработающий адрес – возможно, чтобы побудить пользователя повторно ввести адрес или избежать отправки электронного письма, которое наверняка ни к чему не приведет.

Конечно, в Perl вы можете создать сложное регулярное выражение; или вы обращаетесь к удобному модулю, который уже имеет встроенный модуль и может также проверять доменные имена.

Проверьте адреса электронной почты с Perl

Чтобы проверить адреса электронной почты на предмет корректности и достоверности в Perl-скрипте или программе:

  • Включите проверку электронной почты в HTML-код, если пользователи вводят адреса электронной почты в веб-форму.
  • Используйте Email :: Valid-> address (”) из модуля Perl Email :: Valid CPAN; см. ниже для деталей, установки и примеров.

Email :: Примеры валидных адресов электронной почты

Предполагая, что $ email_address содержит проверяемый адрес, вы можете проверить его действительность, используя:

 
 #!/usr/bin/perl 

 использовать Email :: Действительный 

 $ email_address = 'me @@ example.com '; 

 if (Email :: Valid-> address ($ email_address)) {

 # Адрес электронной почты действителен 

} else {

 # Неверный адрес электронной почты 

} 

Вы также можете проверить Email :: Valid для действительных доменов верхнего уровня (убедившись, что «.com», «.net», «.cn» или другое допустимое доменное имя находится в самом конце адреса электронной почты). Убедитесь, что модуль Net :: Domain :: TLD установлен.

 
 #!/usr/bin/perl 

 использовать Email :: Действительный 

 $ email_address = 'me @@ example.com '; 

 if (Email :: Valid-> address (-address => $ email_address, 

 -tldcheck => 1)) {

 # Адрес электронной почты действителен 

} else {

 # Адрес электронной почты недопустимо 

} 

Установите Email :: Valid Perl Module

Чтобы оснастить вашу установку Perl модулем Email :: Valid для проверки правильности адреса электронной почты:

  • Откройте командную строку.
    • Например, в Mac и Linux откройте приложение Terminal.
  • Введите
     sudo perl -MCPAN -e 'install Email :: Valid' 

    (для Mac и Linux) или

     perl -MCPAN -e 'install Email :: Valid' 

    .

  • Нажмите Enter .

    • Введите пароль суперпользователя и нажмите Enter , если будет предложено.
    • На вопрос Хотите, чтобы я настроил как можно больше автоматически? , выберите “да”, если вы не знаете,
    • На вопрос Можно ли попытаться подключиться к Интернету? , введите также “да”.
Оцените статью
Solutics.ru
Добавить комментарий