Ինչպես ստուգել էլփոստի հասցեները Perl- ով

Արդյոք դա վավեր է, եւ այն կաշխատի: Եթե ​​դուք հավաքում եք կամ էլփոստի հասցեներ եք օգտագործում ձեր Perl գրերի եւ ծրագրերի ցանկացած վայրում, հնարավոր է, հավաքեք բազմաթիվ հասցեներ, որոնք չեն աշխատում: Դոմեյն անունից կարելի է բացակայել նամակը, մյուսը կարող է շատ թույլատրել բնույթ:

Անկախ նրանից, թե ինչու է դրա անվավերության պատճառը, դուք ցանկանում եք բռնել կոտրված հասցեը `հարգելու օգտվողին, հնարավոր է, վերադառնալու հնարավորությունը կամ խուսափել նամակ ուղարկելուց, որը համոզված է, որ ոչ մի տեղ գնա:

Perl- ում դուք կարող եք ներդնել բարդ պարբերական արտահայտություն, իհարկե. կամ դիմում եք հարմար մոդուլին, որն արդեն ունի մեկ ներկառուցված եւ կարող է ստուգել դոմենային անունները:

Վավերացնել էլփոստի հասցեները `Perl- ով

Էլփոստի հասցեները ստուգելու համար Perl- ի սցենարի կամ ծրագրի մեջ լավ ձեւավորվածության եւ վավերականության համար.

Email: Վավեր էլփոստի հասցեի վավերացման օրինակները

Ենթադրելով $ email_address- ը ունի ստուգվող հասցե, դուք կարող եք ստուգել դրա վավերականությունը `օգտագործելով`

#! / usr / bin / perl օգտագործումը Email: Valid $ email_address = 'ինձ @@ example.com'; եթե (Էլ. փոստը `Վավեր:> հասցե ($ email_address)) {# Էլփոստի հասցեն վավեր է} else {# Էլփոստի հասցեն անվավեր է}

Կարող եք նաեւ ունենալ Էլ. Փոստ :: Վավեր ստուգում վավերագույն վերին մակարդակի տիրույթների համար (համոզվեք, «.com», «.net», «.cn» կամ այլ վավեր դոմեյն անուն էլեկտրոնային հասցեի վերջում է): Համոզված եղեք, որ Net :: Domain :: TLD մոդուլը տեղադրված է:

#! / usr / bin / perl օգտագործումը Email: Valid $ email_address = 'ինձ @@ example.com'; եթե (Էլ. փոստը `Վավեր:> հասցե (հասցե` = հասցե $ email_address, -tldcheck => 1)) {# Էլփոստի հասցեն վավեր է} else {# Էլփոստի հասցեն անվավեր է}

Տեղադրեք Email :: Valid Perl Մոդուլ

Ձեր Perl- ի տեղադրումն ապահովելու համար էլ. Փոստով :: Վավեր մոդուլ էլփոստի հասցեի ճշգրտության համար: