كيفية التحقق من صحة عناوين البريد الإلكتروني مع بيرل

هل هي صالحة ، وهل ستنجح؟ إذا قمت بتجميع أو استخدام عناوين البريد الإلكتروني في أي مكان في برامجك وبرمجياتك Perl ، فربما تجمع العديد من العناوين التي لا تعمل. قد يفتقر المرء إلى حرف في اسم المجال ، قد يكون آخر حرف غير مسموح به أكثر من اللازم.

مهما كانت أسباب بطلانها ، فأنت تريد الإمساك بالعنوان المكسور - لمطالبة المستخدم بإعادة إدخال ربما ، أو لتجنب إرسال بريد إلكتروني من المؤكد أن تذهب إلى أي مكان.

في بيرل ، يمكنك صياغة تعبير عادي معقد ، بالطبع ؛ أو تتحول إلى وحدة يدوية تحتوي بالفعل على وحدة مدمجة ويمكنها التحقق من أسماء النطاقات أيضًا.

التحقق من صحة عناوين البريد الإلكتروني مع بيرل

للتحقق من عناوين البريد الإلكتروني لبرقية وصحة الآيات في برنامج أو برنامج Perl:

البريد الإلكتروني: أمثلة صالحة للتحقق من عنوان البريد الإلكتروني

إذا افترضنا أن $ email_address يحمل العنوان المراد التحقق منه ، فيمكنك التحقق من صلاحيته باستخدام:

#! / usr / bin / perl يستخدم البريد الإلكتروني :: صالح $ email_address = 'meexample.com'؛ if (Email :: Valid-> address ($ email_address)) {# عنوان البريد الإلكتروني صالح} آخر {# عنوان البريد الإلكتروني غير صالح}

يمكنك أيضًا التحقق من البريد الإلكتروني :: صالح لنطاقات المستوى الأعلى الصالحة (تأكد من أن ".com" أو ".net" أو ".cn" أو اسم نطاق صالح آخر موجود في نهاية عنوان البريد الإلكتروني). تأكد من تثبيت الوحدة النمطية Net :: Domain :: TLD.

#! / usr / bin / perl يستخدم البريد الإلكتروني :: صالح $ email_address = 'meexample.com'؛ if (Email :: Valid-> address (-address => $ email_address، -tldcheck => 1)) {# عنوان البريد الإلكتروني صالح} آخر {# عنوان البريد الإلكتروني غير صالح}

تثبيت البريد الإلكتروني :: صالح بيرل وحدة

لتجهيز تثبيت Perl باستخدام وحدة Email :: Valid للتحقق من صحة عنوان البريد الإلكتروني: