Da li je ispravno i da li će to funkcionisati? Ako sakupljate ili koristite adrese e-pošte bilo gdje u vašim Perl skriptama i programima, možda ćete sakupiti mnoge adrese koje ne rade. U ime domena može nedostajati slovo, a drugi možda ima previše ograničenog karaktera.
Bez obzira na razloge za njeno neispravnost, želite da uhvatite slomljenu adresu - da biste upitali korisnika da li će možda ponovno uneti ili da izbegne slanje e-pošte koja sigurno neće ići.
U Perlu, naravno, možete napraviti komplikovani regularni izraz; ili se okrenete ka praktičnom modulu koji već ima jedan ugrađeni i može proveriti imena domena.
Potvrdite e-mail adrese sa Perl
Da biste proverili adrese e-pošte za dobro formiranu i validnost u Perl skripti ili programu:
- Izgradite validaciju e-pošte u HTML kod ako imate korisnicima upisati adrese e-pošte u web oblik.
- Koristite Email :: Valid-> address ('') iz e-pošte :: Valid CPAN Perl modul; pogledajte dole za detalje, instalaciju i primere.
Email :: Validni primjeri validacije e-pošte
Pod pretpostavkom da $ email_address ima adresu koju treba proveriti, možete proveriti njegovu validnost pomoću:
#! / usr / bin / perl koristite Email :: Valid $ email_address = 'me @@ example.com'; ako (E-pošta: Važna-> adresa ($ email_address)) {# E-adresa je važeća {else {# E-adresa nije važeća}Takođe možete imati Email :: Validnu provjeru važećih domena najvišeg nivoa (osigurati da su .com, .net, .cn ili drugo važeće ime domena na samom kraju e-pošte). Uverite se da je Net :: Domain :: TLD modul instaliran.
#! / usr / bin / perl koristite Email :: Valid $ email_address = 'me @@ example.com'; ako (Email :: Valid-> adresa (-address => $ email_address, -tldcheck => 1)) {# E-adresa je važeća {else {# E-adresa nije važeća}Instalirajte Email :: Valid Perl Module
Da biste opremili Perl instalaciju pomoću modula Email :: Valid za validaciju ispravnosti e-pošte:
- Otvorite komandnu liniju.
- Pod Mac i Linux otvorite aplikaciju Terminal, na primjer.
- Tip sudo perl -MCPAN -e 'instaliraj Email :: Valid' (Mac i Linux) ili perl -MCPAN -e 'instaliraj Email :: Valid'.
- Pritisnite Enter .
- Unesite super korisničku lozinku i pritisnite Enter ako to bude zatraženo.
- Pitanje Da li biste želeli da sam konfigurišem što je više moguće automatski? , izaberite "da", osim ako ne znate
- Upitan Da li je u redu pokušati da se povežete sa Internetom? , unesite i "da".