Ar tai galioja ir ar tai bus naudinga? Jei surenkate arba naudojate el. Pašto adresus bet kur savo "Perl" scenarijų ir programų, galite rinkti daug adresų, kurie neveikia. Gali būti, kad domeno varde nėra sąrašo, kitoje gali būti uždraustas simbolis.
Nepriklausomai nuo jo negaliojimo priežasčių, jūs norėtumėte sugauti sugadintą adresą - paprašyti naudotojo vėl įvesti galbūt arba išvengti siunčiant el. Laišką, kuris tikriausiai niekur nebebūtų.
"Perl", žinoma, galite sugalvoti sudėtingą įprastinę išraišką; arba pasukite į patogų modulį, kuris jau turi vieną įmontuotą ir gali patikrinti domenų vardus.
Patvirtinkite el. Pašto adresus naudodami Perl
Norėdami patikrinti el. Pašto adresus tinkamam formavimui ir galiojimui Perl scenarijų ar programoje:
- Sukurkite el. Pašto patvirtinimą į HTML kodą, jei naudotojai įvesti el. Pašto adresus į žiniatinklio formą.
- Naudokite Email :: Valid-> adresą ('') iš el. Pašto :: Valid CPAN Perl modulis; Išsamesnės informacijos, diegimo ir pavyzdžių rasite žemiau.
El. Paštas :: Galiojantys el. Pašto adresų patvirtinimo pavyzdžiai
Darant prielaidą, kad $ email_address turi patikrintą adresą, galite patikrinti jo galiojimą naudodami:
#! / usr / bin / perl use email :: Valid $ email_address = 'me @@ example.com'; if (Email :: Valid-> address ($ email_address)) {# El. pašto adresas yra galiojantis} else {# El. pašto adresas negalioja}Taip pat galite turėti el. Pašto :: Valid galiojančių aukščiausio lygio domenų tikrinimas (įsitikinkite, kad ".com", ".net", ".cn" ar kitas galiojantis domeno vardas yra el. Pašto adreso pabaigoje). Įsitikinkite, kad modulis "Net :: Domain :: TLD" yra įdiegtas.
#! / usr / bin / perl use email :: Valid $ email_address = 'me @@ example.com'; if (Email :: Valid-> address (-address => $ email_address, -tldcheck => 1)) {# El. pašto adresas yra galiojantis} else {# El. pašto adresas negalioja}Įdiekite "Email :: Valid Perl" modulį
Įrengti "Perl" diegimą naudodamiesi "Email" :: Valid modulis el. Pašto adreso teisingumui patvirtinti:
- Atidarykite komandų eilutę.
- Pagal "Mac" ir "Linux", pavyzdžiui, atidarykite "Terminal" programą.
- Įveskite sudo perl -MCPAN -e "įdiegti elektroninį laišką :: Valid" ("Mac" ir "Linux") arba perl -MCPAN -e "įdiegti el. Pašto adresą :: Valid".
- Paspauskite Enter .
- Įveskite super vartotojo slaptažodį ir paspauskite " Enter", jei pasirodys paraginimas.
- Paklausta Ar norėtumėte, kad aš automatiškai konfigūruotų kuo daugiau? , pasirinkite "taip", nebent žinote
- Paklaustas, ar gerai pabandyti prisijungti prie interneto? , taip pat įveskite "taip".