Is dit geldig, en sal dit werk? As jy e-posadresse op enige plek in jou Perl-skripte en -programme versamel of gebruik, sal jy moontlik baie adresse wat nie werk nie, versamel. 'N Mens mag 'n brief in die domeinnaam ontbreek, 'n ander kan 'n ontkenbare karakter te veel hê.
Wat ook al die redes vir sy ongeldigheid is, wil jy die gebreekte adres vang - om die gebruiker te vra om miskien weer in te voer, of om te verhoed dat 'n e-pos gestuur word wat seker nêrens heen gaan nie.
In Perl kan jy natuurlik 'n ingewikkelde reëlmatige uitdrukking uitdruk. of jy gaan na 'n handige module wat reeds een ingebou het en ook domeinnamen kan kontroleer.
Valideer e-posadresse met Perl
Om e-posadresse na te gaan vir die goedvormigheid en geldigheid in 'n Perl-skrip of -program:
- Bou e-pos validering in die HTML-kode as jy gebruikers e-pos adresse tik in 'n web vorm.
- Gebruik Email :: Geldige-> adres ('') van die E-pos :: Geldige CPAN Perl module; sien hieronder vir besonderhede, installasie en voorbeelde.
Email :: Geldige e-pos adres validasie voorbeelde
As u $ email_address hou, word die adres nagegaan, kan u die geldigheid daarvan nagaan deur:
#! / usr / bin / perl gebruik Email :: Geldig $ email_address = 'my @@ example.com'; indien (Email :: Geldige-> adres ($ email_address)) {# Die e-posadres is geldig} anders {# Die e-posadres is nie geldig nie}Jy kan ook e-pos hê: Geldige tjek vir geldige topvlakdomeine (maak seker dat ".com", ".net", ".cn" of 'n ander geldige domeinnaam by die einde van die e-pos adres is). Maak seker dat die Net :: Domain :: TLD module geïnstalleer is.
#! / usr / bin / perl gebruik Email :: Geldig $ email_address = 'my @@ example.com'; indien (Email :: Geldige-> adres (-adres => $ email_address, -tldcheck => 1)) {# Die e-posadres is geldig} anders {# Die e-posadres is nie geldig nie}Installeer die Email :: Geldige Perl Module
Om u Perl-installasie toe te rus met die E-pos :: Geldige module vir die validering van e-pos adres korrektheid:
- Maak 'n opdragprompt oop.
- Onder Mac en Linux, maak byvoorbeeld die Terminal-program oop.
- Tik sudo perl -MCPAN-installeer E-pos: Geldig '(Mac en Linux) of perl -MCPAN -Enstalleer E-pos: Geldig'.
- Druk Enter .
- Voer die super gebruikerswagwoord in en druk Enter as gevra word.
- Gevra Wil jy hê ek moet soveel moontlik outomaties konfigureer? , kies "ja" tensy jy weet
- Gevra Is dit reg om te probeer om aan die internet te koppel? , voer ook 'ja' in.