Дали е валидно и ще работи ли? Ако събирате или използвате имейл адреси навсякъде в скриптове и програми на Perl, вероятно събирате много адреси, които не работят. Човек може да няма писмо в името на домейна , друг може да има недопустим характер твърде много.
Каквито и да са причините за неговата инвалидност, вие искате да хванете счупения адрес - да накарате потребителя отново да влезе, или да избегнете изпращане на имейл, който със сигурност няма да отиде никъде.
В Perl можете, разбира се, да измислите сложен регулярен израз; или се обръщате към удобен модул, който вече има вграден и може да проверява и домейни.
Потвърдете имейл адресите с Perl
За да проверите имейл адресите за добре формираността и валидността в скрипт или програма на Perl:
- Изградете потвърждаване на имейли в HTML кода, ако имате потребители да въвеждат имейл адреси в уеб формуляр.
- Използвайте Email :: Valid-> address ('') от модула Email :: Valid CPAN Perl; виж по-долу за подробности, инсталиране и примери.
Email :: Валидни примери за валидиране на имейл адреса
Ако приемем, че адресът $ email_address съдържа адреса, който трябва да се провери, можете да проверите неговата валидност, като използвате:
#! / usr / bin / perl използвайте Email :: Валиден $ email_address = 'me @@ example.com'; ако (имейл :: валиден-> адрес ($ email_address)) {# имейл адрес е валиден} else {# имейл адресът не е валиден}Можете също така да имате Email :: Valid check за валидни домейни от първо ниво (като се уверите, че ".com", ".net", ".cn" или друго валидно име на домейн е на самия край на имейл адреса). Уверете се, че е инсталиран модулът Net :: Domain :: TLD.
#! / usr / bin / perl използвайте Email :: Валиден $ email_address = 'me @@ example.com'; ако (имейл :: валиден-> адрес (-address => $ email_address, -tldcheck => 1)) {# имейл адрес е валиден} else {# имейл адрес не е валиден}Инсталирайте модула Email :: Valid Perl
За да оборудвате инсталирането на Perl с модула Email :: Valid за потвърждаване на коректността на имейл адреса:
- Отворете командния ред.
- Под Mac и Linux отворете приложението Terminal, например.
- Напишете sudo perl -MCPAN -e 'инсталирате Email :: Valid' (Mac и Linux) или perl -MCPAN -e 'инсталирате Email :: Valid'.
- Натиснете Enter .
- Въведете супер потребителската парола и натиснете Enter, ако получите подкана.
- Запитани Искате ли да конфигурирам възможно най-много автоматично? , изберете "да", освен ако не знаете
- Запитани Добре ли е да се опитате да се свържете с интернет? , въведете "да" също.