Nzira Yokugadzirisa Sei Maizai eEmail nePerl

Ichokwadi here, uye ichashanda here? Kana iwe uchiunganidza kana kushandisa maizairi e-mail kupi zvako muPerk scripts nemapurogiramu, iwe unogona kuunganidza mazita akawanda asingashande. Mumwe angave asina ruvara rwezita remudunhu , mumwe angave ane unhu hwakarambidzwa zvikuru.

Chero zvikonzero zvekusakosha kwayo, iwe unoda kubata kero rakaputsika - kuita kuti vashandi vadzokezve pamwe, kana kuti vasatumira email inenge isina chokwadi.

MuPerl, unogona kugadzirisa zvakaoma nguva dzose kutaura, zvechokwadi; kana iwe unotendeukira kumudziyo unobatsira wakave wakagadzirwa mukati uye unogona kutarisa mazita mazita, zvakare.

Garai Maepa eEmail ne Perl

Kuchengeta mazita e-mail ekugadzikana zvakanaka uye kuvimbika mune script Perl kana chirongwa:

Imeyeri :: Evhareji yepaIndaneti Mvumo yekugadzirisa Mienzaniso

Kufunga kuti $ email_address inobata kero kuti iongororwa, unogona kutarisa kuvimbika kwayo uchishandisa:

#! / usr / bin / perl shandisa email: Valid $ email_address = 'me @@ example.com'; kana (Email :: Valid-> kero ($ email_address)) {# Kero kero ye email yakakodzera} zvimwe {# E-mail address haisi yakakodzera}

Iwe unogonawo kuva neIndaneti :: Valid chengetedzo yepamusoro yepamusoro-level domains (kuve nechokwadi chekuti ".com", ".net", ".cn" kana rimwe zita rekugadzirisa rinonyanya kushandiswa riri pamakero e-mail. Iva nechokwadi chokuti Net :: Domain :: TLD module inowanikwa.

#! / usr / bin / perl shandisa email: Valid $ email_address = 'me @@ example.com'; kana (Email :: Valid-> address (-address => $ email_address, -tldcheck => 1)) {# Imeyeri yekombiyuta inoshanda} zvimwe {# E-mail address haisi yakakodzera}

Isai Imeyili :: Valid Perl Module

Kugadzirisa kuiswa kwePerl yako neEmail :: Vhudziro yemodhi yekugadzirisa mairi e-mail yakarurama: