Unsaon sa Pagpamatuod sa Email Addresses uban sa Perl

Kini balido ba, ug kini magamit? Kung mangolekta ka o mogamit sa mga email address bisan asa sa imong mga script ug programa sa Perl, posible nga mangolekta ka daghang mga address nga wala magtrabaho. Ang usa tingali kulang sa usa ka sulat sa ngalan sa domain , ang lain mahimo usab nga adunay usa ka wala'y kinaiya nga kinaiya.

Bisag unsa man ang mga hinungdan sa pagkawalay hinungdan niini, gusto nimo nga makuha ang masulub-on nga address - aghaton ang user nga mosulod pag-usab, o aron dili makapagawas sa usa ka email nga segurado nga dili moadto.

Sa Perl, mahimo ka maghimo og komplikadong regular nga pagpadayag, siyempre; o mobalik ka sa usa ka praktikal nga module nga adunay usa nga gitukod sa ug mahimo nga check domain ngalan, usab.

Pat-ud ang Email Addresses sa Perl

Aron susihon ang mga adres sa email alang sa maayo nga pagkaporma ug balido sa usa ka script sa Perl o programa:

• Pagtukod sa pag-validate sa email ngadto sa HTML code kung adunay mga gumagamit nga mag-type sa mga adres sa email ngadto sa web form.
• Gamita ang Email :: Valid-> address ('') gikan sa Email :: Valid CPAN Perl module; tan-awa sa ubos alang sa mga detalye, instalar ug mga panig-ingnan.

Email :: Mga Sulud sa Pagpamatuod sa Valid Email Address

Sa pag-ingon nga ang $ email_address naghupot sa address nga paga-tsek, imong masusi ang validity niini gamit ang:

#! / usr / bin / perl paggamit Email :: Valid $ email_address = 'me @@ example.com'; kung (Email :: Valid-> address ($ email_address)) {# Ang email address balido} laing {# Ang email address dili balido}

Mahimo usab nimo ang Email :: Valid check alang sa balido nga top-level domains (pagpaneguro sa ".com", ".net", ".cn" o lain pang ngalan sa domain sa katapusan nga email address). Siguroha nga ang Net :: Domain :: TLD module gipahimutang.

#! / usr / bin / perl paggamit Email :: Valid $ email_address = 'me @@ example.com'; kung (Email :: Valid-> address (-address => $ email_address, -tldcheck => 1)) {# Ang email address balido} else {# Ang email address dili balido}

I-install ang Email :: Valid Perl Module

Aron masangkapan ang pag-instalar sa Perl gamit ang Email :: Valid module alang sa pag-validate sa email address nga pagkorihir:

• Ablihi ang command prompt.
  • Ubos sa Mac ug Linux, ablihi ang Terminal application, pananglitan.
• Isulat ang sudo perl -MCPAN -e 'i-install ang Email :: Valid' (Mac ug Linux) o perl -MCPAN -e 'i-install ang Email :: Valid'.
• Pagpilit .
  • Pagsulod sa super user nga pasword ug pindota ang Enter kung gi-prompt.
  • Gipangutana Gusto ba nimo nako nga ma-configure kutob sa mahimo ang awtomatik? , pagpili og "oo" gawas kon nahibal-an nimo
  • Gipangutana Posible ba nga mosumpay sa Internet? , pagsulod usab sa "oo".