Primanje SMS poruka u Perl-u

Na ovoj stranici ćete moći da naučite kako možete koristiti svoju Perl aplikaciju za primanje SMS poruka. Ovaj primer Perl koda je sposoban da prikupi dolazne poruke sa SMS Gateway-a i koristi ih u aplikaciji. Ovu operaciju obavlja korišćenjem HTTP zahteva. Ovaj vodič pokazuje koliko je lako kreirati Perl aplikaciju i pokrenuti je na svom računaru. Dakle, počnimo odmah.

Perl SMS API omogućava slanje SMS poruka iz programa napisanog u Perl-u. Koristi HTTP zahteve i SSL enkriptovanu komunikaciju za prosleđivanje zahteva za slanje SMS-a ka SMS Gateway-u.

• Instaliran Perl
• Instaliran Ozeki 10 SMS Gateway
• Konfigurisana HTTP Server veza

1. Otvorite Notepad
2. Kopirajte i nalepite primer koda sa ove stranice
3. Sačuvajte fajl kao ReceiveSMS.pl
4. Otvorite Ozeki SMS Gateway i izaberite HTTP Server vezu
5. Otvorite HTML formu HTTP Server veze
6. Pošaljite neke test poruke
7. Otvorite Command Prompt
8. Ukucajte 'perl ReceiveSMS.pl' u Command Prompt i pritisnite Enter

Primer koda ispod je slobodan za korišćenje u vašem rešenju ili aplikaciji i možete ga modifikovati ako želite. Primer koda može prikupiti poruke sa SMS Gateway-a i koristiti ih u Perl aplikaciji. Ako želite da testirate primer, samo pratite korak-po-korak uputstva ispod ili pogledajte video koji jasno pokazuje sve korake koje treba da izvršite da biste pokrenuli Perl SMS primer.

#!/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";
}

Prva stvar koju treba da uradite da biste završili ovaj vodič je kreiranje Perl fajla koji treba da izvršite da biste videli kako dobija SMS poruke sa SMS Gateway-a. Dakle, u ovom trenutku, potrebno je da otvorite Notepad aplikaciju na svom računaru kako biste mogli da kreirate Perl fajl. Za to, kao što je prikazano na Slici 1, kliknite na njenu ikonu na desktopu.

Zatim, potrebno je da preuzmete Perl kod sa ove stranice kako biste ga koristili na svom računaru. Dakle, samo se pomaknite gore do sekcije sa primerom koda i označite ceo izvorni kod. Zatim, kao što možete videti na Slici 2, potrebno je da ga kopirate u svoj clipboard. Ovo možete uraditi pritiskom na Ctrl+C na tastaturi.