استقبال الرسائل القصيرة باستخدام Perl

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

ما هي واجهة برمجة تطبيقات الرسائل القصيرة في Perl؟

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

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

• Perl مثبت
• Ozeki 10 SMS Gateway مثبت
• اتصال خادم HTTP مهيأ

استقبال الرسائل القصيرة باستخدام Perl

1. افتح المفكرة
2. انسخ والصق الكود المثال من هذه الصفحة
3. احفظ الملف باسم ReceiveSMS.pl
4. افتح Ozeki SMS Gateway وحدد اتصال خادم HTTP
5. افتح النموذج HTML لاتصال خادم HTTP
6. أرسل بعض الرسائل الاختبارية
7. افتح موجه الأوامر
8. اكتب 'perl ReceiveSMS.pl' في موجه الأوامر واضغط Enter

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

#!/usr/bin/perl 
use strict; 
use warnings; 
use XML::Simple;
use Data::Dumper;
require HTTP::Request;
require LWP::UserAgent;

sub main
{
    my $username = "john";
	my $password = "Xc3ffs";
	my $httpUrl = "https://127.0.0.1:9508/";
	my $folder = "inbox";
	my $limit = "3";

    my $sendString = $httpUrl."api?action=receivemessage&username="
                    .$username."&password=".$password."&folder="
                    .$folder."&limit=".$limit
                    ."&messagedata=&afterdownload=delete";
    
    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";

	DisplayMessages($response->content)
}

main();

sub DisplayMessages {
	my $data = XMLin(@_);
	my $sender = "";
	my $text = "";
 	if($data->{data}->{message} eq 'No more messages.')	{
 		print "The inbox is empty!";
 		return;
 	}

	if (ref($data->{data}->{message}) eq 'ARRAY') {
		foreach my $value (@{ $data->{data}->{message} }) {
			$sender = $value->{originator};
			$text =  $value->{messagedata};
			DisplayMessage($sender,$text);
		}
	} 
	else {
		$sender = $data->{data}->{message}->{originator};
		$text = $data->{data}->{message}->{messagedata};
		DisplayMessage($sender,$text);
	}
}

sub DisplayMessage {
	print $_[0].": ".$_[1]."\n";
}

الخطوة 1 - افتح المفكرة

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

الخطوة 2 - انسخ الكود المصدري لـ Perl من هذه الصفحة

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

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

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

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

تم وضع الكود الآن في المستند النصي، لكنه لا يزال لا يحمل تنسيق الملف الصحيح. لكن هذه ليست مشكلة كبيرة، يمكنك حلها بسهولة باستخدام Notepad. فقط اختر خيار 'حفظ باسم'، وهنا، بعد إعطاء اسم للملف، استخدم امتداد الملف '.pl' كما يوضحه الشكل 4. إذا نقرت على 'حفظ'، سيتم حفظ الملف بتنسيق ملف Perl الصحيح الذي تحتاجه للتنفيذ لاحقًا.

الخطوة 5 - إرسال بعض الرسائل الاختبارية

بعد إعداد ملف Perl، تحتاج إلى بعض الرسائل في مجلد الوارد. لإنهاء الاختبار بسرعة، يمكنك محاكاة الرسائل الواردة باستخدام اتصال خادم HTTP في SMS Gateway. إذا لم تكن قد قمت بتكوين هذا الاتصال بعد، يمكنك رؤية كيفية تكوين اتصال خادم HTTP. لذا، افتح SMS Gateway، واختر اتصال خادم HTTP. في قائمة الاتصال، افتح النموذج HTML (الشكل 5). هنا، يمكنك كتابة بعض الرسائل إلى SMS Gateway عن طريق تعيين المستلم إلى 'Ozeki'.

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

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

الخطوة 7 - تشغيل مثال Perl لرسائل SMS

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

أفكار أخيرة

في المقالة أعلاه، تعلمت عن استقبال رسائل SMS باستخدام Perl. استخدام سكريبت Perl لجمع الرسائل الواردة يعني أنه يمكنك استخدام تلك الرسائل في مشروع PHP. يمكنك البدء في أتمتة استقبال وإرسال رسائل SMS بقوة Perl وOzeki SMS Gateway. بفضل Ozeki SMS Gateway، لن تواجه مشاكل في الأداء بسبب قدرة البرنامج على معالجة 1000 رسالة SMS في الثانية. هذا سيعزز التواصل بشكل كبير داخل مؤسستك أو مع عملائك.

زور صفحتنا إذا كنت تريد التعرف على جميع لغات البرمجة التي يمكن لـ Ozeki SMS Gateway التعامل معها. يمكنك الوصول إلى المقالة حول إدارة رسائل SMS باستخدام Python.

إذا كنت ترغب في العمل مع برنامج SMS Gateway عالي الأداء، قم بتنزيل Ozeki SMS Gateway!