Ĉu valida kaj ĉu ĝi funkcios? Se vi kolektas aŭ uzas retpoŝtadresojn ie ajn en viaj Perl-skriptoj kaj programoj, vi eble kolektas multajn adresojn, kiuj ne funkcias. Oni eble mankas leteron en la domajna nomo , alia eble tro multe malkredis.
Kia ajn estas la kialoj de ĝia nulo, vi volas kapti la rompitan adreson - por instigi la uzanton por reentiĝi eble, aŭ eviti sendi retpoŝton, kiu certe ne iros en neniu loko.
En Perl, vi povas konkludi komplikan regulan esprimon, kompreneble; aŭ vi turnas al oportuna modulo, kiu jam havas unu enkonstruitan kaj ankaŭ povas kontroli domajnajn nomojn.
Validigi retpoŝtadresojn per Perl
Por kontroli retpoŝtadresojn por la boneco kaj valideco en Perl-skripto aŭ programo:
- Konstruu retpoŝtajn validigon en la HTML-kodon se vi havas uzantojn tajpi retpoŝtadresojn en retalan formon.
- Uzu Retpoŝto :: Valida-> adreso ('') de la Retpoŝto :: Valida CPAN Perl-modulo; vidu sube por detaloj, instalado kaj ekzemploj.
Retpoŝto :: Valida Retpoŝt-adreso Validigo Ekzemploj
Supozante $ email_address tenas la adreson por esti kontrolita, vi povas kontroli ĝian validecon per:
#! / usr / bin / perl uzas Retpoŝto :: Valida $ email_address = 'me @@ example.com'; se (Retpoŝto :: Valida-> adreso ($ email_address)) {# La retpoŝta adreso estas valida} alia {# La retpoŝta adreso ne estas valida}Vi ankaŭ povas havi retpoŝton :: Valida kontrolo por validaj supraj nivelaj domajnoj (certigante ".com", ".net", ".cn" aŭ alia valida domajna nomo estas ĉe la retpoŝta adreso). Certigu, ke la Net :: Domain :: TLD-modulo estas instalita.
#! / usr / bin / perl uzas Retpoŝto :: Valida $ email_address = 'me @@ example.com'; se (Retpoŝto :: Valida-> adreso (-address => $ email_address, -tldcheck => 1)) {# La retpoŝta adreso estas valida} alia {# La retpoŝta adreso ne estas valida}Instali la Retpoŝto :: Valida Perl-Modulo
Ekipi vian Perl-instaladon per la Retpoŝto :: Valida modulo por validigi retpoŝtadrektecon:
- Malfermu komandon.
- Sub Mac kaj Linukso, malfermu la Finalan aplikon, ekzemple.
- Tajpu sudo perl -MCPAN -e 'instali retpoŝton :: Valida' (Mac kaj Linukso) aŭ perl -MCPAN -e 'instali retpoŝton :: Valida'.
- Premu Enter .
- Eniru la supran uzanton-pasvorton kaj premu Enter se instigita.
- Demandita Ĉu vi volas, ke mi agordu tiom eble plej aŭtomate? , elektu "jes", se vi ne scias
- Demandita Ĉu estas bone provi konekti al interreto? , eniru "jes" ankaŭ.