إرسال البريد الإلكتروني مع بيرل

إذا كان برنامجك يعمل على نظام Linux/Unix، فيمكنك استخدام أداة sendmail في لغة Perl لإرسال رسائل البريد الإلكتروني.

فيما يلي مثال نصي بسيط لإرسال رسائل البريد الإلكتروني:

مثال

#!/usr/bin/Perl # استلام البريد الإلكتروني، لقد قمت بتعيينه كبريد إلكتروني لـ QQ الخاص بي، وتحتاج إلى تعديله إلى بريدك الإلكتروني $to = ' [email protected] ' ; #البريد الإلكتروني للمرسل $ from = ' [email protected] ' ; $subject = ' البرنامج التعليمي لـ Perl يرسل اختبار البريد الإلكتروني ' ; $message = ' هذا بريد إلكتروني تم إرساله باستخدام Perl. ' ; مفتوح ( MAIL , " |/usr/sbin/sendmail -t " ) ; مطبعة بريد " إلى: $ to n " ; بريد " من: $from n " ؛ طباعة بريد " الموضوع: $subject n n " ; # معلومات البريد الإلكتروني مطبعة بريد رسالة $ ؛ إغلاق ( البريد ) ؛ " تم إرسال البريد الإلكتروني بنجاح n " ;

بتنفيذ البرنامج أعلاه تكون نتيجة الإخراج هي:

 تم إرسال البريد الإلكتروني بنجاح

في الظروف العادية، سيتم اعتراض البريد الإلكتروني أعلاه بواسطة صندوق بريد QQ ويمكننا إضافته إلى القائمة البيضاء. يمكن النقر فوق طريقة التشغيل: https://kf.qq.com/faq/120322fu63YV130805rYRFzu.html.

بعد الانضمام إلى القائمة البيضاء، يمكنك تلقي رسائل البريد الإلكتروني بشكل طبيعي.

إرسال بريد إلكتروني بتنسيق HTML

يمكننا إضافة Content-type: text/htmln في رأس البريد الإلكتروني لإرسال رسائل البريد الإلكتروني بتنسيق HTML، والمثال كما يلي:

مثال

#!/usr/bin/Perl # استلام البريد الإلكتروني، لقد قمت بتعيينه كبريد إلكتروني لـ QQ الخاص بي، وتحتاج إلى تعديله إلى بريدك الإلكتروني $to = ' [email protected] ' ; #البريد الإلكتروني للمرسل $ from = ' [email protected] ' ; $subject = ' برنامج Perl التعليمي لإرسال اختبار البريد الإلكتروني ' ; $message = ' <h1>هذه رسالة بريد إلكتروني تم إرسالها باستخدام لغة Perl<h1><p>مرحبًا، أنا من برنامج Coder التعليمي، العنوان هو: http://www .codercto.com. </p> ' ; open ( MAIL , " |/usr/sbin/ sendmail -t " ) ; مطبعة بريد " إلى: $ to n " ; بريد " من: $from n " ؛ طباعة بريد " الموضوع: $subject n " ; بريد " نوع المحتوى: نص/html n " ; مطبعة بريد رسالة $ ؛ إغلاق ( البريد ) ؛ " تم إرسال البريد الإلكتروني بنجاح n " ;

بعد التنفيذ الناجح، قم بالتحقق من محتوى البريد الإلكتروني، كما هو موضح أدناه:

باستخدام وحدة MIME::Lite

إذا كنت تستخدم نظام النوافذ، فلا توجد أداة إرسال بريد. في هذا الوقت، يمكنك استخدام وحدة MIME:Lite الخاصة بـ Perl كعميل بريد لإرسال البريد.

عنوان تنزيل الوحدة MIME:Lite هو: MIME-Lite-3.030.tar.gz.

هنا نستخدم cpan للتثبيت مباشرة (أذونات الجذر مطلوبة) دون تنزيل:

 $ cpan -i MIME::Lite…… /usr/bin/make install - حسنًا

بعد التثبيت الناجح، دعونا نوضح مثالا:

مثال

#!/usr/bin/Perl استخدم MIME::Lite ; # تلقي البريد الإلكتروني، وهنا قمت بتعيينه كبريد إلكتروني لـ QQ الخاص بي، وتحتاج إلى تعديله إلى بريدك الإلكتروني $to = ' [email protected] ' ; # نسخة، افصل بين النسخ المتعددة بفواصل # $cc = '[email protected], [email protected]'; #البريد الإلكتروني للمرسل $ from = ' [email protected] ' ; $subject = ' البرنامج التعليمي لـ Perl لإرسال اختبار البريد الإلكتروني ' ; $message = ' هذه رسالة بريد إلكتروني تم إرسالها باستخدام لغة Perl، باستخدام وحدة MIME::Lite. ' $msg = MIME ::Lite -> جديد ( من => $من ، إلى => $ إلى ، نسخة => $cc ، الموضوع => $الموضوع ، البيانات => رسالة $ ) ; $msg - > إرسال ; " تم إرسال البريد الإلكتروني بنجاح n " ;

بعد التنفيذ الناجح، قم بالتحقق من محتوى البريد الإلكتروني، كما هو موضح أدناه:

إرسال بريد إلكتروني بتنسيق HTML

يمكننا إضافة Content-type: text/htmln في رأس البريد الإلكتروني لإرسال رسائل البريد الإلكتروني بتنسيق HTML، والمثال كما يلي:

مثال

#!/usr/bin/Perl استخدم MIME::Lite ; # تلقي البريد الإلكتروني، وهنا قمت بتعيينه كبريد إلكتروني لـ QQ الخاص بي، وتحتاج إلى تعديله إلى بريدك الإلكتروني $to = ' [email protected] ' ; # نسخة، افصل بين النسخ المتعددة بفواصل # $cc = '[email protected], [email protected]'; #البريد الإلكتروني للمرسل $ from = ' [email protected] ' ; $subject = ' البرنامج التعليمي لـ Perl لإرسال اختبار البريد الإلكتروني ' ; $message = ' <h1>هذا بريد إلكتروني تم إرساله باستخدام Perl<h1><p>باستخدام وحدة MIME::Lite. </p><p>من البرنامج التعليمي للمبرمج، العنوان هو: http://www.codercto.com. </p> ' $msg = MIME ::Lite -> جديد ( من => $من ، إلى => $ إلى ، نسخة => $cc ، الموضوع => $الموضوع ، البيانات => رسالة $ ) ; #إضافة معلومات الرأس $msg -> attr ( " نوع المحتوى " = > " text/html " ) ؛ $msg -> إرسال ؛ " تم إرسال البريد الإلكتروني بنجاح n " ;

بعد التنفيذ الناجح، قم بالتحقق من محتوى البريد الإلكتروني، كما هو موضح أدناه:

إرسال البريد الإلكتروني مع المرفقات

مثال على إرسال بريد إلكتروني يحتوي على مرفقات هو كما يلي:

مثال

#!/usr/bin/Perl استخدم MIME::Lite ; # تلقي البريد الإلكتروني، وهنا قمت بتعيينه كبريد إلكتروني لـ QQ الخاص بي، وتحتاج إلى تعديله إلى بريدك الإلكتروني $to = ' [email protected] ' ; # نسخة، افصل بين النسخ المتعددة بفواصل # $cc = '[email protected], [email protected]'; #البريد الإلكتروني للمرسل $ from = ' [email protected] ' ; $subject = ' البرنامج التعليمي لـ Perl لإرسال اختبار البريد الإلكتروني ' ; $message = ' هذه رسالة بريد إلكتروني تم إرسالها باستخدام Perl، باستخدام وحدة MIME::Lite وتحتوي على مرفقات. ' $msg = MIME ::Lite -> جديد ( من => $من ، إلى => $ إلى ، نسخة => $cc ، الموضوع => الموضوع $ ، اكتب => " متعدد الأجزاء/مختلط " # علامة المرفقات ) ; $msg -> أرفق ( اكتب => ' النص ' ، البيانات => رسالة $ ) ؛ #حدد معلومات المرفق $msg -> إرفاق ( اكتب => ' النص ' ، المسار => ' ./codercto.txt ' ، # في الدليل الحالي اسم الملف => ' codercto.txt ' ، الترتيب => ' مرفق ' ) ; $msg - > إرسال ; " تم إرسال البريد الإلكتروني بنجاح n " ;

بعد التنفيذ الناجح، قم بالتحقق من محتوى البريد الإلكتروني، كما هو موضح أدناه:

يمكنك إضافة عدة مرفقات باستخدام عدة $msg->attach.