Дали е валидно, и дали ќе функционира? Ако собирате или користите е-адреси насекаде во вашите скрипти и програми на Perl, веројатно собирате многу адреси кои не работат. Еден може да недостасува писмо во името на доменот , друг може да има препуштен знак премногу.
Без оглед на причините за неговата невалидност, вие не сакате да ја фатите скршената адреса - за да го известите корисникот повторно да влезе или да избегне испраќање на е-пошта која сигурно нема да оди никаде.
Во Perl, можете да измислите комплициран регуларен израз, се разбира; или пак ќе се свртиме кон корисен модул кој веќе има еден вграден и може да провери имиња на домени, исто така.
Потврдете е-мејл адреси со Perl
За да ги проверите е-адресите за доброформираност и валидност во скрипта или програма Perl:
- Изгради е-мејл валидација во HTML кодот ако имате корисници тип е-мејл адреси во веб-форма.
- Користете е-пошта :: Валидна-> адреса ('') од е-пошта :: Валиден CPAN Perl модул; видете подолу за детали, инсталација и примери.
Е-пошта :: Примери за валидација на е-пошта адреси
Ако претпоставиме дека $ email_address ја има адресата што треба да се провери, можете да ја проверите неговата валидност користејќи:
#! / usr / bin / perl користи е-пошта :: Валидна $ email_address = 'me @@ example.com'; ако (Е-пошта :: Валидна-> адреса ($ email_address)) {# Е-поштата е валидна} друго {{Е-мејл адресата не е валидна}Можете исто така да имате Email :: Валидна проверка за валидни домени од највисоко ниво (осигурувајќи дека ". .com", ".net", ".cn" или друго валидно име на домен е на самиот крај на е-поштата). Осигурајте се дека модулот Net :: Domain :: TLD е инсталиран.
#! / usr / bin / perl користи е-пошта :: Валидна $ email_address = 'me @@ example.com'; ако (E-mail :: Валидна- адреса (-дадреса => $ email_address, -tldcheck => 1)) {# Е-поштата е валидна} друго {{Е-мејл адресата не е валиден}Инсталирајте го модулот за е-пошта :: Валиден Perl
За да ја опремите вашата инсталација на Perl со модулот за е-пошта :: Валиден за проверка на точноста на е-поштата:
- Отворете командната линија.
- Под Mac и Linux, отворете ја апликацијата Терминал, на пример.
- Тип sudo perl -MCPAN -и 'инсталирај е-пошта: валидна' (Mac и Linux) или perl -MCPAN -e 'инсталирај е-пошта: валидна'.
- Притиснете Enter .
- Внесете ја супер-корисничката лозинка и притиснете Enter, ако е побарано.
- Запрашан Дали сакате да конфигурирам колку што е можно автоматски? , изберете "да", освен ако не знаете
- Запрашан Дали е во ред да се обидам да се поврзам на Интернет? , внесете "да", исто така.