Ito ba ay may bisa, at gagana ito? Kung mangolekta o gumamit ka ng mga email address kahit saan sa iyong mga script at programa ng Perl, posibleng makakolekta ka ng maraming mga address na hindi gumagana. Ang isa ay maaaring kulang sa isang sulat sa pangalan ng domain , ang isa pa ay maaaring magkaroon ng isang disallowed na character masyadong marami.
Anuman ang mga dahilan para sa kakulangan nito, nais mong mahuli ang nasira address - upang i-prompt ang gumagamit upang muling ipasok siguro, o upang maiwasan ang pagpapadala ng isang email na sigurado na pumunta saanman.
Sa Perl, maaari mong buuin ang isang kumplikadong regular na expression, siyempre; o binuksan mo ang isang madaling gamiting modyul na mayroon nang isang built in at maaaring suriin ang mga pangalan ng domain, masyadong.
Patunayan ang Mga Email Address sa Perl
Upang suriin ang mga email address para sa mahusay na pagkakabuo at pagiging wasto sa isang script o programa ng Perl:
- Bumuo ng pagpapatunay ng email sa HTML code kung mayroon kang mga uri ng mga email address sa isang web form.
- Gamitin ang Email :: Valid-> address ('') mula sa Email :: Valid CPAN Perl module; tingnan sa ibaba para sa mga detalye, pag-install at mga halimbawa.
Email :: Mga Halimbawa ng Pagpapatunay ng Mga Valid na Email Address
Ipagpalagay na ang $ email_address ay may hawak na address na naka-check, maaari mong suriin ang validity nito gamit ang:
#! / usr / bin / perl gamitin Email :: Valid $ email_address = 'me @@ example.com'; kung (Email :: Valid-> address ($ email_address)) {# Ang email address ay may-bisa} iba pa {# Ang email address ay hindi wasto}Maaari ka ring magkaroon ng Email :: Valid na tseke para sa wastong mga domain ng nangungunang antas (tinitiyak na ang ".com", ".net", ".cn" o iba pang wastong pangalan ng domain ay nasa dulo ng email address). Tiyaking naka-install ang Net :: Domain :: TLD module.
#! / usr / bin / perl gamitin Email :: Valid $ email_address = 'me @@ example.com'; kung (Email :: Valid-> address (-address => $ email_address, -tldcheck => 1)) {# Ang email address ay may-bisa} iba {# Ang email address ay hindi wasto}I-install ang Email :: Valid Perl Module
Upang masangkapan ang iyong pag-install ng Perl gamit ang Email :: Ang wastong modyul para sa pagpapatunay na tama ang email address:
- Buksan ang command prompt.
- Sa ilalim ng Mac at Linux, buksan ang Terminal application, halimbawa.
- I-type ang sudo perl -MCPAN -e-install ang Email :: Valid '(Mac at Linux) o perl -MCPAN -e' install Email :: Valid '.
- Pindutin ang Enter .
- Ilagay ang sobrang password ng user at pindutin ang Enter kung na-prompt.
- Asked Gusto mo bang i-configure ang awtomatikong hangga't maaari? , piliin ang "oo" maliban kung alam mo
- Asked Is it OK to try to connect to the Internet? , ipasok din ang "oo".