Это действительно, и будет ли это работать? Если вы собираете или используете адреса электронной почты где-либо в своих скриптах и программах 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 , если будет предложено.
- На вопрос Хотите, чтобы я настроил как можно больше автоматически? , выберите “да”, если вы не знаете,
- На вопрос Можно ли попытаться подключиться к Интернету? , введите также “да”.