Faʻafefea ona Faʻamaonia Tuatusi imeli ia Perl

E aoga, ma o le a aoga? Afai e te aoina pe faʻaaogaina imeli i soo se mea i au tusitusiga ma polokalama a Perl, e mafai ona e aoina mai le tele o tuatusi e le aoga. Atonu o le tasi e leai se tusi i le igoa o le igoa , o le isi e ono le tele sona uiga.

Po o le a lava le mafuaʻaga o lona faʻaleagaina, e te manaʻo e puʻe le tuatusi o le tuatusi - e faʻamalosi ai le tagata faʻaaoga e toe ulufale mai atonu, pe aloese mai le auina atu o se imeli e mautinoa e le alu i se mea.

I Perl, e mafai ona e faʻamaonia se faʻamatalaga masani faigata, ioe; pe e te liliuina i se laupepa lima lea ua uma ona fausia i totonu ma e mafai foi ona siaki igoa ole igoa.

Faʻamaonia Tuatusi imeli i Perl

Ina ia siaki tuatusi imeli mo le lelei ma le lelei i totonu o se tusitusiga poo se polokalame a Perl:

Imeli :: Tuatusi Tuatusi Tuatusi Faataitaiga Faataitaiga

Mafaufau e $ email_address e taofia le tuatusi e siakiina, e mafai ona e siaki lona faʻamaonia e ala i le:

#! / usr / bin / perl faaaoga Email :: Valid $ email_address = 'me @@ example.com'; pe afai (Email :: Valid-> tuatusi ($ email_address) '# # O le tuatusi imeli e aoga} isi {# E leʻo le tuatusi imeli}

E mafai foi ona e maua le Email :: Faʻamaonia lelei mo tuatusi tulaga maualuga (faʻamautinoa ".com", ".net", ".cn" poʻo se isi igoa ole igoa ole igoa ole tuatusi imeli). Ia mautinoa ua faʻapipiʻi le Net :: Domain :: TLD module.

#! / usr / bin / perl faaaoga Email :: Valid $ email_address = 'me @@ example.com'; pe afai (Email :: Valid-> address (-address => $ email_address, -tldcheck => 1)) {# O le tuatusi imeli e aoga} isi {# E leʻo le tuatusi imeli}

Faʻamau i le Email :: Valid Perl Module

Ina ia faʻaogaina lau Perl faʻatulagaga i le Email :: Valid module mo faʻamaonia le saʻo o le imeli: