Primire SMS în Perl

Pe această pagină, veți putea afla cum puteți utiliza aplicația Perl pentru a primi mesaje SMS. Acest exemplu de cod Perl este capabil să colecteze mesajele primite de la Gateway-ul SMS și să le folosească în aplicație. Această operațiune se realizează folosind cereri HTTP. Acest ghid arată cât de ușor puteți crea o aplicație Perl și să o rulați pe computerul dumneavoastră. Deci, să începem chiar acum.

API-ul SMS pentru Perl asigură capacitatea de a trimite mesaje SMS dintr-un program scris în Perl. Folosește cereri HTTP și comunicare criptată SSL pentru a transmite cererea de trimitere SMS către Gateway-ul SMS.

• Perl instalat
• Ozeki 10 SMS Gateway instalat
• O conexiune HTTP Server configurată

1. Deschideți Notepad
2. Copiați și lipiți codul exemplu de pe această pagină
3. Salvați fișierul ca ReceiveSMS.pl
4. Deschideți Ozeki SMS Gateway și selectați conexiunea HTTP Server
5. Deschideți formularul HTML al conexiunii HTTP Server
6. Trimiteți câteva mesaje de test
7. Deschideți Command Prompt
8. Tastați 'perl ReceiveSMS.pl' în Command Prompt și apăsați Enter

Codul exemplu de mai jos este liber de utilizat în propria soluție sau aplicație și îl puteți modifica dacă doriți. Codul exemplu poate colecta mesajele de la Gateway-ul SMS și le poate folosi în aplicația Perl. Dacă doriți să testați exemplul, urmați instrucțiunile pas cu pas de mai jos sau vizionați videoclipul care arată clar toți pașii pe care trebuie să îi efectuați pentru a executa exemplul Perl SMS.

#!/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 "Se trimite cererea html: ".$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 "Răspuns HTTP primit :\n";

	DisplayMessages($response->content)
}

main();

sub DisplayMessages {
	my $data = XMLin(@_);
	my $sender = "";
	my $text = "";
 	if($data->{data}->{message} eq 'No more messages.')	{
 		print "Cutia poștală este goală!";
 		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";
}

Primul lucru pe care trebuie să îl faceți pentru a finaliza acest ghid este să creați fișierul Perl pe care trebuie să îl executați pentru a vedea cum primește mesajele SMS de la Gateway-ul SMS. Deci, în acest moment, trebuie să deschideți aplicația Notepad pe computerul dumneavoastră pentru a putea crea fișierul Perl. Pentru asta, exact ca în Figura 1, faceți clic pe iconița sa de pe desktop.

În continuare, trebuie să obțineți codul sursă Perl de pe această pagină pentru a-l folosi pe computerul dumneavoastră. Deci, derulați în sus până la secțiunea cu codul exemplu și selectați întregul cod sursă. Apoi, așa cum puteți vedea în Figura 2, trebuie să îl copiați în clipboard. Acest lucru se poate face apăsând Ctrl+C pe tastatură.

Pasul 3 - Lipiți codul în fișierul text

După ce ați copiat codul sursă Perl de pe această pagină, trebuie să îl plasați într-un document text. Pentru a face acest lucru, mergeți la aplicația Notepad pe care ați deschis-o anterior și, așa cum puteți vedea în Figura 3, apăsați Ctrl+V pe tastatură pentru a lipi întregul cod sursă în documentul text.

Codul sursă este acum plasat în documentul text, dar încă nu are formatul de fișier corect. Dar aceasta nu este o problemă mare, o puteți rezolva ușor cu Notepad. Selectați opțiunea 'Salvează ca' și aici, după ce ați dat un nume fișierului, folosiți extensia de fișier '.pl' așa cum demonstrează Figura 4. Dacă faceți clic pe 'Salvează', fișierul va fi salvat în formatul de fișier Perl necesar pentru execuție ulterioară.

După ce ați configurat fișierul Perl, aveți nevoie de câteva mesaje în directorul de primire. Pentru a finaliza testul rapid, puteți simula mesajele primite cu conexiunea HTTP Server în SMS Gateway. Dacă nu ați configurat încă această conexiune, aici puteți vedea cum să configurați o conexiune HTTP Server. Deschideți SMS Gateway și selectați conexiunea HTTP Server. În meniul conexiunii, deschideți formularul HTML (Figura 5). Aici, puteți scrie câteva mesaje către SMS Gateway setând destinatarul la 'Ozeki'.

Pentru a rula codul Perl, aveți nevoie de Command Prompt deoarece oferă o modalitate simplă de a executa codul. Mai întâi, deschideți File Explorer și navigați la folderul unde ați salvat fișierul Perl. Aici, așa cum puteți vedea în Figura 6, tastați 'cmd' în File Explorer. Dacă apăsați Enter, Command Prompt se va deschide într-o fereastră nouă.

Ultimul lucru pe care trebuie să-l faceți este să executați programul Perl. Pentru aceasta, trebuie doar să executați o comandă simplă în Command Prompt. Comanda este 'perl *nume_fișier*.pl' așa cum arată Figura 7. Apoi, apăsați Enter pentru a executa programul exemplu. Programul va afișa cererea HTTP trimisă către SMS Gateway și, de asemenea, mesajul de răspuns de la SMS Gateway. Acesta conține toate mesajele primite de SMS Gateway.

În articolul de mai sus, ați învățat despre primirea SMS-urilor folosind Perl. Folosirea unui script Perl pentru a colecta mesajele primite înseamnă că puteți folosi acele mesaje într-un proiect PHP. Puteți începe să automatizați primirea și trimiterea SMS-urilor cu puterea Perl și Ozeki SMS Gateway. Datorită Ozeki SMS Gateway, nu veți avea probleme de performanță datorită capacității gateway-ului software de a procesa 1000 SMS pe secundă. Acest lucru va îmbunătăți semnificativ comunicarea din cadrul organizației dumneavoastră sau cu clienții dumneavoastră.

Vizitați pagina noastră web dacă doriți să aflați despre toate limbajele de programare pe care le poate gestiona Ozeki SMS Gateway. Puteți accesa articolul despre gestionarea SMS-urilor cu Python.

Dacă doriți să lucrați cu un software SMS Gateway de înaltă performanță, descărcați Ozeki SMS Gateway!