Perl bilan elektron pochta manzillarini tekshirish

Bu haqiqiymi va u ishlaydi? Agar siz Perl skriptlari va dasturlarida biron-bir elektron pochta manzilini yig'sangiz yoki ishlatsangiz, ishlamaydigan ko'plab manzillarni to'plashingiz mumkin. Domen nomida xat bo'lmasligi mumkin, ikkinchisida ruxsat berilmagan belgilar bo'lishi mumkin.

Qanday sabablarga qaramasdan, siz buzilgan manzilni qo'lga olishni xohlaysiz - foydalanuvchini ehtimol qayta kiritishingiz yoki hech qanday joyga bormasligiga ishonch hosil qilish uchun xat jo'natmaslik uchun.

Perlda, albatta, murakkab muntazam ifodani uyg'unlashingiz mumkin; yoki siz allaqachon o'rnatilgan domen nomlarini ham tekshiradigan qulay modulga o'girasiz.

Perl bilan elektron pochta manzillarini tasdiqlash

Perl skriptida yoki dasturida yaxshi shakllanganligi va haqiqiyligi uchun elektron pochta manzillarini tekshirish uchun:

E-pochta: Valid Email manzilini tekshirish misollar

$ Email_address tekshiriladigan manzilni egaligini inobatga olsak, uning haqiqiyligini tekshirishingiz mumkin:

#! / usr / bin / perldan foydalanish Email: Valid $ email_address = 'me @@ example.com'; agar (E-pochta: Valid-> manzil ($ email_address)) {# E-pochta manzili amal qiladi} else {# Elektron pochta manzili noto'g'ri}

E-pochta manzili ham bo'lishi mumkin: Joriy yuqori darajadagi domenlar uchun haqiqiy tekshiruv (".com", ".net", ".cn" yoki boshqa joriy domen nomi elektron pochta manzilining eng oxirigacha bo'lganligiga ishonch hosil qilish). Net :: Domain :: TLD moduli o'rnatilganligiga ishonch hosil qiling.

#! / usr / bin / perldan foydalanish Email: Valid $ email_address = 'me @@ example.com'; agar (Email: Valid-> manzil (- address => $ email_address, -tldcheck => 1)) {# Elektron pochta manzili amal qiladi} else {# Elektron pochta manzili noto'g'ri}

E-pochtani o'rnatish :: Valid Perl moduli

Perl o'rnatishingizni E-mail bilan jihozlash uchun: E-mail manzilining to'g'riligini tekshirish uchun haqiqiy modul: