Содержание
Это действительно, и будет ли это работать? Если вы собираете или используете адреса электронной почты где-либо в своих скриптах и программах Perl, вы, возможно, соберете много адресов, которые не работают. У одного может отсутствовать буква в имени домена, у другого может быть запрещенный символ.
Какими бы ни были причины его недействительности, вы действительно хотите поймать неработающий адрес — возможно, чтобы побудить пользователя повторно ввести адрес или избежать отправки электронного письма, которое наверняка ни к чему не приведет.
Конечно, в Perl вы можете создать сложное регулярное выражение; или вы обращаетесь к удобному модулю, который уже имеет встроенный модуль и может также проверять доменные имена.
Проверьте адреса электронной почты с Perl
Чтобы проверить адреса электронной почты на предмет корректности и достоверности в Perl-скрипте или программе:
- Включите проверку электронной почты в HTML-код, если пользователи вводят адреса электронной почты в веб-форму.
- Используйте Email :: Valid-> address (») из модуля Perl Email :: Valid CPAN; см. ниже для деталей, установки и примеров.
Email :: Примеры валидных адресов электронной почты
Предполагая, что $ email_address содержит проверяемый адрес, вы можете проверить его действительность, используя:
#! / USR / бен / Perl
использовать Email :: Действительный
$ email_address = 'me @@ example.com';
if (Email :: Valid-> address ($ email_address)) {
# Адрес электронной почты действителен
} еще {
# Адрес электронной почты недействителен
}
Вы также можете проверить Email :: Valid для действительных доменов верхнего уровня (убедившись, что «.com», «.net», «.cn» или другое допустимое доменное имя находится в самом конце адреса электронной почты). Убедитесь, что модуль Net :: Domain :: TLD установлен.
#! / USR / бен / Perl
использовать Email :: Действительный
$ email_address = 'me @@ example.com';
if (Email :: Valid-> address (-address => $ email_address,
-tldcheck => 1)) {
# Адрес электронной почты действителен
} еще {
# Адрес электронной почты недействителен
}
Установите Email :: Valid Perl Module
Чтобы оснастить вашу установку Perl модулем Email :: Valid для проверки правильности адреса электронной почты:
- Откройте командную строку.
- Например, в Mac и Linux откройте приложение Terminal.
- Тип
sudo perl -MCPAN -e 'установить Email :: Действительный'
(Mac и Linux) или
perl -MCPAN -e 'установить Email :: Действительный'
.
- Нажмите Ввод.
- Введите пароль суперпользователя и нажмите Enter, если будет предложено.
- На вопрос Хотите ли вы, чтобы я настраивал как можно больше автоматически? Выберите «да», если вы не знаете,
- На вопрос «Можно ли попытаться подключиться к Интернету?», Введите «да».