Ki jan yo Valide Adrès Email ak pèrl

Èske li valab, e li pral travay? Si ou kolekte oswa sèvi ak adrès imel nenpòt kote nan Scripts ou ak pwogram ou, ou pètèt kolekte anpil adrès ki pa travay. Youn ka manke yon lèt nan non an domèn , yon lòt ka gen yon karaktè deplwaye twòp.

Kèlkeswa sa ki rezon pou envalidite li yo, ou vle trape adrès ki kase a - bay itilizatè a re-antre petèt, oswa pou fè pou evite voye yon imèl ki nan asire w ke ou ale okenn kote.

Nan Perl, ou ka konkou yon ekspresyon konplike regilye, nan kou; oswa ou ale nan yon modil sou la men ki deja gen yon sèl bati nan epi yo ka tcheke non domèn, tou.

Validate adrès Imèl ak pèrl

Pou tcheke adrès imèl pou fòmasyon ki byen fòme ak validite nan yon script oswa pwogram Perl:

Email :: Valid Egzanp Valid Adrès

Ann sipoze $ email_address kenbe adrès la pou yo tcheke, ou ka tcheke validite li yo lè l sèvi avèk:

#! / usr / bin / perl itilize Imèl :: Valid $ email_address = 'm @@ example.com'; si (Email :: Valid-> adrès ($ email_address)) {# Adrès imèl la valab} lòt bagay {# Adrès imèl la pa valab}

Ou ka gen tou Imèl :: Tchèk ki valab pou domèn ki anrejistre tèt-nivo (fè sèten ".com", ".net", ".cn" oswa yon lòt non domèn valab se nan fen adrès imel la trè fen). Asire w ke Net :: Domain :: TLD modil la enstale.

#! / usr / bin / perl itilize Imèl :: Valid $ email_address = 'm @@ example.com'; si (Email :: Valid-> adrès (-Adrès => $ email_address, -tldcheck => 1)) {# Adrès imèl la valab} lòt bagay {# Adrès imèl la pa valab}

Enstale Imèl la :: Valid Modil Perl

Pou ekipe enstalasyon Perl ou a ak imèl la :: Modil ki valid pou validite adrès imèl Correct: