Hvernig á að staðfesta netfang með Perl

Er það gilt og mun það virka? Ef þú safnar eða notar netföng hvar sem er í Perl skriftunum þínum og forritum, safna þú hugsanlega mörgum heimilisföngum sem virka ekki. Maður getur ekki skrifað bréf í léninu , annar getur haft óviðkomandi staf of mikið.

Hvaða ástæður fyrir ógildum þess, viltu grípa brotið heimilisfang - til að hvetja notandann til að koma inn aftur, ef til vill, eða til að forðast að senda tölvupóst sem er viss um að fara hvergi.

Í Perl, þú getur auðvitað flókið venjulegt tjáning, auðvitað; eða þú ert að snúa sér að handhægum mát sem þegar hefur einn innbyggður og getur athugað lén líka.

Staðfesta netfang með Perl

Til að athuga netföng fyrir velmótun og gildi í Perl handriti eða forriti:

• Búðu til staðfestingu tölvupósts í HTML kóða ef þú hefur notendur skrifað netföng í vefform.
• Notaðu tölvupóstinn :: Gildið-> heimilisfang ('') úr netfanginu :: Gildir CPAN Perl mát; sjá fyrir neðan upplýsingar, uppsetningu og dæmi.

Tölvupóstur :: Gildandi dæmi um gildistíma tölvupósts

Miðað við $ email_address heldur netfangið sem á að athuga, getur þú athugað gildi þess með því að nota:

#! / usr / bin / perl nota Email :: Gildir $ email_address = 'mér @@ example.com'; ef (Email :: Gildi-> heimilisfang ($ email_address)) {# Netfangið er í gildi} annað {# Netfangið er ekki í gildi}

Þú getur líka haft tölvupóst: Gildanlegt eftirlit með gildum efstu lénum (gakktu úr skugga um að ". Com", ".net", ".cn" eða annað gildt lén er í endaloki netfangsins). Gakktu úr skugga um að Net :: Domain :: TLD mát sé uppsett.

#! / usr / bin / perl nota Email :: Gildir $ email_address = 'mér @@ example.com'; ef (Email :: Gildið-> heimilisfang (-address => $ email_address, -tldcheck => 1)) {# Netfangið er í gildi} annað {# Netfangið er ógilt}

Settu upp Email :: Gildir Perl Module

Til að búa til Perl uppsetninguna þína með tölvupósti :: Gildir mát til að staðfesta réttmæti netfangs:

• Opnaðu stjórnunarprompt.
  • Undir Mac og Linux, opnaðu Terminal forritið, til dæmis.
• Sláðu inn sudo perl -MCPAN-settu 'Email: Valid' (Mac og Linux) eða perl -MCPAN-settu 'Email': Gildið '.
• Ýttu á Enter .
  • Sláðu inn lykilorðið fyrir frábæran notanda og ýttu á Enter ef beðið er um það.
  • Spurt Viltu að ég stilli eins mikið og mögulegt er sjálfkrafa? , veldu "já" nema þú vitir
  • Spurði Er það í lagi að reyna að tengjast internetinu? , sláðu inn "já" eins og heilbrigður.