كيفية إرسال رسائل SMS من Perl

يوضح مثال الكود أدناه كيفية استخدام طلبات HTTP لإرسال رسائل SMS من Perl عبر بوابة SMS. يقوم برنامج Perl أولاً بإعداد جميع المتغيرات المهمة التي سيتم استخدامها لإرسال الرسالة. ثم يقوم بإنشاء السلسلة النصية لإرسال الرسالة وأخيرًا، يبدأ طلب HTTP. سيتم أيضًا طباعة رسالة الرد بواسطة البرنامج.

ما هي واجهة برمجة تطبيقات SMS لـ Perl؟

توفر واجهة برمجة تطبيقات SMS لـ Perl القدرة على إرسال رسائل SMS من برنامج مكتوب بلغة Perl. تستخدم طلبات HTTP واتصال مشفر بـ SSL لإرسال طلب إرسال SMS إلى بوابة SMS.

المتطلبات الأساسية

• Perl مثبت
• Ozeki 10 SMS Gateway مثبت
• حساب مستخدم HTTP API مهيأ

إرسال SMS من Perl

1. افتح Notepad
2. أنشئ ملفًا جديدًا
3. انسخ والصق مثال الكود من هذه الصفحة
4. احفظ الملف باسم HttpApiTester.pl
5. افتح موجه الأوامر
6. انتقل إلى المجلد حيث حفظت ملف Perl
7. اكتب 'perl HttpApitester.pl' في موجه الأوامر
8. اضغط Enter لتشغيل ملف Perl

مثال على كود مصدر Perl لـ SMS

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

#!/usr/bin/perl 
use strict; 
use warnings; 
use Encode;
require HTTP::Request;
require LWP::UserAgent;

sub main
{
    my $username = "john";
	my $password = "Xc3ffs";
	my $messagetype = "SMS:TEXT";
	my $httpUrl = "https://127.0.0.1:9508/";
	my $recipient = Encode::encode("utf8", "+36201324567");
	my $messagedata = Encode::encode("utf8", "TestMessage");

	my $sendString = $httpUrl."api?action=sendmessage"."&username=" 
					.$username."&password=" 
					.$password."&recipient=".$recipient."&messagetype=" 
					.$messagetype."&messagedata=".$messagedata;
    
    print "Sending html request: ".$sendString."\n\n";

	my $request = HTTP::Request->new(GET => $sendString);
	my $ua = LWP::UserAgent->new (
   			ssl_opts => { verify_hostname => 0 },
			);
	my $response = $ua->request($request);

	print "Http response received :\n";
	print $response->content;

}

# Call main.
main();

الخطوة 1 - افتح تطبيق محرر نصوص

لتتمكن من تشغيل مثال الكود أعلاه، تحتاج أولاً إلى إنشاء ملف Perl لذلك. لأداء هذه العملية، تحتاج فقط إلى وجود محرر نصوص. يمكنك تنزيل محرر نصوص مخصص، ولكن تطبيق Notepad الافتراضي المثبت على Windows يمكنه القيام بالمهمة أيضًا. كما يوضح الشكل 1، ما عليك سوى فتح تطبيق Notepad من سطح المكتب الخاص بك.

الخطوة 2 - انسخ الكود المصدري

الخطوة التالية هي الحصول على الكود المصدري. هذه مهمة سهلة، حيث يمكن العثور على الكود في هذه الصفحة، لذا تحتاج فقط إلى نسخه. كما ترى في الشكل 2، انتقل إلى قسم مثال الكود في هذه الصفحة، حدد الكود المصدري بالكامل واضغط على Ctrl+C على لوحة المفاتيح لنسخ الكود المصدري إلى الحافظة.

الخطوة 3 - الصق الكود في ملف النص الخاص بك

بعد ذلك، تحتاج إلى وضع الكود المصدري المنسوخ في ملف النص الفارغ الخاص بك. للقيام بذلك، ما عليك سوى الانتقال إلى ملف النص والضغط على Ctrl+V على لوحة المفاتيح. من خلال تنفيذ هذا الإجراء، سيتم وضع الكود المصدري في ملف النص الخاص بك كما يوضحه الشكل 3.

الخطوة 4 - حفظ النص كملف Perl

لإنشاء ملف Perl، تحتاج فقط إلى حفظ الملف النصي بامتداد ملفات Perl. هذا الامتداد هو .pl. لذا، اختر خيار 'حفظ باسم' في المفكرة، وكما تراه في الشكل 4، وبعد إعطاء اسم للملف، أضف إليه امتداد الملف '.pl' ثم انقر على 'حفظ'. هذه العملية تنشئ ملف Perl الذي تحتاجه لتشغيل مثال Perl SMS.

الخطوة 5 - فتح موجه الأوامر

الخطوة الرئيسية الأخيرة في الدليل هي تشغيل ملف Perl الذي أنشأته سابقًا. في هذه الحالة، ستقوم بتشغيل المثال باستخدام موجه الأوامر. يمكنك بسهولة فتح موجه الأوامر عن طريق فتح مستكشف الملفات، وكما في الشكل 5، اكتب فقط 'cmd' في شريط العناوين ثم اضغط على Enter. إذا انتقلت إلى المجلد حيث حفظت ملف Perl في مستكشف الملفات، فسيستخدم موجه الأوامر هذا الموقع افتراضيًا، لذا يمكنك تشغيل ملف Perl على الفور.

الخطوة 6 - تشغيل ملف Perl

آخر شيء تحتاج إلى تنفيذه هو بدء الأمر الذي يشغل ملف Perl. هذا أمر بسيط؛ تحتاج فقط إلى كتابة 'perl *اسم الملف*.pl' في موجه الأوامر كما يظهر الشكل 6. بعد الضغط على Enter، ينفذ ملف Perl الأوامر الموجودة بداخله ويرسل الرسالة الاختبارية. سيتم طباعة طلب HTTP والاستجابة من بوابة SMS في موجه الأوامر.

الخطوة 7 - التحقق من نتيجة الإرسال في سجل Ozeki

تضمن بوابة Ozeki 10 SMS أن تتحقق من الرسائل التي أرسلتها تطبيقك، حيث يسجل خدمة HTTP API كل حدث يحدث أثناء فترة تمكينها. لذا، إذا فتحت بوابة SMS وحددت تفاصيل خدمة HTTP API، ستتمكن من رؤية الأحداث. كما ترى في الشكل 7، سجلت الخدمة حدثًا عندما أرسل برنامج Perl طلب HTTP إلى الخدمة.

يمكن أيضًا التحقق من الأحداث التي حدثت أثناء إرسال الرسالة من خلال الأحداث. لذلك، افتح اتصال مستخدم HTTP API الذي كان عليك تكوينه مسبقًا. يوضح الشكل 8 كيف يتعامل الاتصال مع طلب HTTP ويرسل الرسالة إلى المستلم الذي حددته في برنامج Perl SMS الخاص بك.

ملخص

في هذه المقالة، نقدم لك معلومات حول كيفية إرسال رسائل SMS باستخدام Perl. كما أدرجنا مثالًا للكود يمكنك استخدامه لبدء عملية التنفيذ. إن إعداد حل يمكنه استخدام لغة Perl لإرسال SMS سيجعل من السهل تنفيذ حل إرسال SMS في نظام الاتصال الخاص بك.

إذا كنت ترغب في تنفيذ المزيد من لغات البرمجة في نظام الاتصال الخاص بك، فلا تتردد في زيارة المقالات حول لغات البرمجة الأخرى المتوافقة مع بوابة Ozeki SMS، مثل: Java.

الآن، الشيء التالي الذي عليك فعله هو تنزيل بوابة Ozeki SMS وتكوين هذا الحل على الفور! كل شيء موجود لبدء تشغيله في أقل من 10 دقائق.