Kako preveriti e-poštne naslove s programom Perl

Je veljaven in bo delovalo? Če zbirate ali uporabljate e-poštne naslove kjerkoli v svojih skriptah in programih Perl, lahko zbirate številne naslove, ki ne delujejo. V domeni lahko manjka pismo, drugi pa ima prevelik značaj.

Ne glede na razloge za neveljavnost, bi radi ujeli zlomljen naslov - tako da uporabnik pozove, da se ponovno vnese, ali da se izogne ​​pošiljanju e-pošte, ki je zagotovo nikamor.

V Perlu lahko seveda zapletete reden izraz; ali pa se obrnite na priročen modul, ki že ima vgrajen in lahko preveri domenska imena.

Preverite e-poštne naslove s programom Perl

Če želite preveriti e-poštne naslove za dobro oblikovano in veljavnost v skripti ali programu Perl:

• Ustvarite validacijo e-pošte v HTML-kodo, če imate uporabnike vnesti e-poštne naslove v spletno obliko.
• Uporabite e-poštni naslov: Veljaven-> ('') iz modula Email :: Veljaven CPAN Perl; glej spodaj za podrobnosti, namestitev in primere.

E-pošta :: Primeri veljavnih e-poštnih naslovov

Ob predpostavki, da ima $ email_address naslov, ki ga je treba preveriti, lahko preverite njegovo veljavnost z uporabo:

#! / usr / bin / perl uporabite E-pošta :: Veljaven $ email_address = 'me @@ example.com'; če (E-pošta :: Valid-> naslov ($ email_address)) {# E-poštni naslov je veljaven} drugje {# E-poštni naslov ni veljaven}

Imate lahko tudi e-poštno sporočilo: veljaven pregled veljavnih domen najvišje ravni (poskrbite, da je ".com", ".net", ".cn" ali drugo veljavno ime domene na samem koncu e-poštnega naslova). Prepričajte se, da je modul Net :: Domain :: TLD nameščen.

#! / usr / bin / perl uporabite E-pošta :: Veljaven $ email_address = 'me @@ example.com'; če (E-pošta :: Valid-> naslov (-address => $ email_address, -tldcheck => 1)) {# E-poštni naslov je veljaven} drugje {# E-poštni naslov ni veljaven}

Namestite modul Email Valid Perl

Če želite vašo namestitev Perl opremiti z modulom Email :: Valid za preverjanje pravilnosti e-poštnega naslova:

• Odprite ukazno vrstico.
  • V Mac in Linux odprite aplikacijo Terminal, na primer.
• Vnesite sudo perl -MCPAN -e "namestite e-pošto: veljaven" (Mac in Linux) ali perl -MCPAN -e "namestite e-pošto: veljaven".
• Pritisnite Enter .
  • Vnesite super uporabniško geslo in pritisnite Enter, če ste pozvani.
  • Na vprašanje, ali želite samodejno konfigurirati čim več? , izberite "da", razen če veste
  • Na vprašanje Ali je OK, da se poskusite povezati z internetom? , vnesite tudi "da".