Vai tas ir derīgs un vai tas darbosies? Ja jūs apkopojat vai izmantojat e-pasta adreses jebkur jūsu Perl skriptos un programmās, jūs, iespējams, apkopojat daudzas adreses, kas nedarbojas. Domēna nosaukumā var būt trūkst vēstules, un citam var būt pārāk liels aizlieguma raksturs.
Neatkarīgi no invaliditātes iemesliem jūs vēlaties noķert šķelto adresi - lai pieprasītu lietotājam atkārtoti ievadīt varbūt, vai lai izvairītos no e-pasta vēstuļu sūtīšanas, kas, protams, nekurienē.
Protams, Perl jūs varat izdarīt sarežģītu regulāru izteiksmi; vai arī vērsieties pie ērta moduļa, kas jau ir iebūvēts, un varat pārbaudīt arī domēnu vārdus.
Pārbaudiet e-pasta adreses ar Perl
Lai pārbaudītu e-pasta adreses labajai formēšanai un derīgumam Perl skriptā vai programmā:
- Veidojiet e-pasta validāciju HTML kodā, ja lietotājiem esat ievadījis e-pasta adreses tīmekļa veidlapā.
- Izmantojiet e-pasta adresi :: Valid-> adresi ('') no e-pasta adreses :: Valid CPAN Perl modulis; Sīkāku informāciju, uzstādīšanu un piemērus skatiet tālāk.
E-pasts :: derīgas e-pasta adreses validācijas piemēri
Pieņemot, ka $ email_address saglabā pārbaudāmo adresi, varat pārbaudīt tā derīgumu, izmantojot:
#! / usr / bin / perl use email :: Valid $ email_address = 'me @@ example.com'; ja (E-pasts :: Derīgs-> adrese ($ email_address)) {# E-pasta adrese ir derīga} else {# E-pasta adrese nav derīga}Varat arī izmantot e-pastu :: derīgu augšējā līmeņa domēnu pārbaudi (pārliecinieties, ka e-pasta adreses beigās ir norādīti ".com", ".net", ".cn" vai cits derīgs domēna nosaukums). Pārliecinieties, vai ir instalēts Net :: Domain :: TLD modulis.
#! / usr / bin / perl use email :: Valid $ email_address = 'me @@ example.com'; ja (E-pasts :: Derīgs-> adrese (-address => $ email_address, -tldcheck => 1)) {# E-pasta adrese ir derīga} else {# e-pasta adrese nav derīga}Instalējiet e-pastu :: Derīgs Perl modulis
Lai aprīkotu savu Perl instalāciju ar e-pasta adresi :: Derīgs modulis, lai pārbaudītu e-pasta adreses pareizību:
- Atveriet komandu uzvedni.
- Zem Mac un Linux atveriet lietojumprogrammu Terminal, piemēram.
- Ierakstiet sudo perl -MCPAN -e "instalēt e-pastu :: derīgs" (Mac un Linux) vai perl -MCPAN -e "instalēt e-pastu :: derīgs".
- Nospiediet Enter .
- Ievadiet super lietotāja paroli un, ja tiek prasīts, nospiediet taustiņu Enter .
- Jautāt Vai jūs vēlaties, lai es automātiski konfigurētu pēc iespējas vairāk? , izvēlieties "jā", ja vien nezināt
- Jautāts Vai ir pareizi mēģināt izveidot savienojumu ar internetu? , ievadiet arī "jā".