Ці з'яўляецца гэта сапраўды, і ці будзе ён працаваць? Калі вы збіраеце або выкарыстоўваць адрасы электроннай пошты ў любым месцы ў вашых скрыптах і праграмах на Perl, вы, магчыма, сабраць шмат адрасоў, якія не працуюць. Адзін можа адсутнічаць літара ў імя дамена , іншы можа мець забаронены характар занадта шмат.
Якімі б ні былі прычыны яго несапраўднасці, вы хочаце, каб злавіць зламаны адрас - падказваць карыстачу паўторна ўвесці, можа быць, або каб пазбегнуць адпраўкі электроннай пошты, які ўпэўнены, каб ісці ў нікуды.
У Perl вы можаце згатаваць складанае рэгулярны выраз, вядома; або звярнуцца да зручнага модулю, які ўжо адзін пабудаваны ў і можа праверыць даменныя імёны таксама.
Праверка адрасоў электроннай пошты з Perl
Для праверкі адрасы электроннай пошты для афармлення і дзеянняў у сцэнары Perl або праграме:
- Пабудова праверкі электроннай пошты ў HTML код , калі ў вас ёсць адрасы электроннай пошты тыпу карыстальнікаў у вэб - форму.
- Выкарыстанне электроннай пошты :: Valid-> адрасу ( '') з E-mail :: Сапраўдны модуль CPAN Perl; гл ніжэй для дэталяў, ўстаноўкі і прыкладаў.
E-mail :: Правільныя Адрас электроннай пошты Прыклады Validation
Мяркуючы, што $ email_address трумаў адрасы для праверкі, вы можаце праверыць яго дакладнасць з дапамогай:
#! / USR / бен / Perl выкарыстанне E-mail :: Valid $ email_address = 'мяне @@ example.com'; калі (E-mail :: Valid-> адрас ($ email_address)) {# адрас электроннай пошты з'яўляецца сапраўдным} яшчэ {# Адрас электроннай пошты не з'яўляецца сапраўдным}Вы таксама можаце па электроннай пошце :: Сапраўды праверка дапушчальных даменаў верхняга ўзроўню (пераканаўшыся, што «.com», «.net», «.cn» або іншае сапраўднае даменным імя ў самым канцы адрасы электроннай пошты, у). Пераканайцеся, што Net :: Domain :: Модуль TLD усталяваны.
#! / USR / бен / Perl выкарыстанне E-mail :: Valid $ email_address = 'мяне @@ example.com'; калі (Email :: Valid-> адрас (-address => $ email_address, -tldcheck => 1)) {# адрас электроннай пошты з'яўляецца сапраўдным} яшчэ {# Адрас электроннай пошты не з'яўляецца сапраўдным}Ўстаноўка E-mail :: Сапраўдны модуль на Perl
Для таго, каб абсталяваць ўстаноўку Perl з Email :: Valid модулем для праверкі правільнасці адрасы электроннай пошты:
- Адкрыйце камандную радок.
- Пад Mac і Linux, адкрыйце тэрмінальнае дадатак, напрыклад.
- Увядзіце судо Perl -MCPAN -e 'ўсталяваць Email :: Valid' (Mac і Linux) або Perl -MCPAN -e 'ўсталяваць Email :: Valid.
- Націсніце Enter.
- Увядзіце супер - пароль карыстальніка і націсніце клавішу Enter , калі будзе прапанавана.
- На пытанне , вы хочаце , каб я наладзіць як мага больш аўтаматычна? Выберыце «так», калі вы не ведаеце
- На пытанне Ці можна паспрабаваць падлучыцца да Інтэрнэту? Увядзіце «так», а таксама.