Tsela ea ho tiisa melaetsa ea imeile le Perl

Na e utloahala, 'me e tla sebetsa? Haeba u bokella kapa u sebelisa liaterese tsa imeile kae kapa kae Perl scripts le mananeo, u ka 'na ua bokella liaterese tse sa sebetseng. Motho a ka 'na a se na lengolo le ngotsoeng lebitsong la hae , e mong a ka' na a ba le motho ea sa lumelloeng haholo.

Ho sa tsotellehe hore na ke hobane'ng ha ho se na thuso, u batla ho tšoara aterese e robehileng - ho etsa hore mosebeletsi a kene hape mohlomong, kapa a qobe ho romela melaetsa eo ho seng thata hore e tsamaee kae kapa kae.

Ka Perl, o ka kopanya pontšo e tloaelehileng e tloaelehileng, ho hlakile; kapa o fetela mmotong o amohelehang o seng o hahiloe ho oona mme o ka hlahloba mabitso a marang-rang, hape.

Tlosa Mabitso a Imeile le Perl

Ho sheba liaterese tsa imeile bakeng sa sebōpeho se nepahetseng le ho nepahala ka lengolo kapa lenaneo la Perl:

Imeile :: Mehlala ea Validation ea Aterese ea Imeile

Ho nka $ email_address e boloka aterese e hlahlojoa, u ka hlahloba hore na e nepahetse ho sebelisa:

#! / usr / bin / perl sebelisa email :: Valid $ email_address = 'me @@ example.com'; haeba (Imeile :: Valid-> aterese ($ email_address)) {# Imeile ya aterese e sebetsa} hape {# Imeile ya imeile ha e sebetse}

U ka boela oa ba le Imeile :: Tlhaloso ea Valid bakeng sa libaka tse nepahetseng tsa marang-rang (ho etsa bonnete ba ".com", ".net", ".cn" kapa lebitso le leng le le leng la seabo le le leng la aterese ea aterese). Etsa bonnete ba hore motlakase oa Net :: Domain :: TLD e kenngoa.

#! / usr / bin / perl sebelisa email :: Valid $ email_address = 'me @@ example.com'; haeba (Imeile :: Valid-> address (-address => $ email_address, -tldcheck => 1)) {# Imeile ya imeile e sebetsa} hape {# Imeile ya imeile ha e sebetse}

Kenya email :: Valid Perl Module

Ho hlomella setlankane sa hao sa Perl ka module ea email :: Valid bakeng sa ho netefatsa ho nepahala ha aterese ea imeile: