Cum să trimiți SMS din Perl

Codul exemplu de mai jos demonstrează cum poți folosi cereri HTTP pentru a trimite mesaje SMS din Perl prin intermediul unui SMS Gateway. Programul Perl configurează mai întâi toate variabilele importante care vor fi folosite pentru trimiterea mesajului. Apoi, creează șirul pentru trimiterea mesajului și, în final, inițiază cererea HTTP. Mesajul de răspuns va fi, de asemenea, afișat de program.

Ce este un API SMS pentru Perl?

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

Cerințe preliminare Trimite SMS din Perl
  1. Deschide Notepad
  2. Creează un fișier nou
  3. Copiază și lipește codul exemplu de pe această pagină
  4. Salvează fișierul ca HttpApiTester.pl
  5. Deschide Promptul de comandă
  6. Navighează către folderul unde ai salvat fișierul Perl
  7. Tastează 'perl HttpApitester.pl' în Promptul de comandă
  8. Apasă Enter pentru a rula fișierul Perl

Video 1 - Cum să trimiți SMS din Perl (Tutorial video)

Exemplu de cod sursă Perl pentru SMS

Exemplul de cod sursă Perl de mai jos este liber de utilizare, îl poți implementa simplu în proiectul tău, sau poți modifica codul sursă pentru a-l folosi în alte proiecte sau aplicații. Dacă vrei doar să rulezi și să testezi acest exemplu, tot ce trebuie să faci este să urmezi instrucțiunile de mai sus sau să urmărești videoclipul tutorial care demonstrează modul de a crea un fișier Perl pentru codul sursă și de a-l rula din Promptul de comandă.

#!/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 "Trimitere cerere 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";
	print $response->content;

}

# Apel main.
main();





Pasul 1 - Deschide o aplicație de editare text

Pentru a putea rula codul exemplu de mai sus, mai întâi, trebuie să creezi un fișier Perl pentru acesta. Pentru a efectua această operațiune, ai nevoie doar de un editor de text. Poți descărca un editor de text personalizat, dar și aplicația implicită Notepad instalată pe Windows poate face treaba. Așadar, așa cum arată Figura 1, deschide aplicația Notepad de pe desktopul tău.

deschide un editor de text
Figura 1 - Deschide un editor de text

Pasul 2 - Copiază codul sursă

Următorul pas este să obții codul sursă. Aceasta este o sarcină ușoară, deoarece codul poate fi găsit pe această pagină, așa că trebuie doar să îl copiezi. Așadar, așa cum poți vedea în Figura 2, mergi la secțiunea cu codul exemplu de pe această pagină, selectează întregul cod sursă și apasă Ctrl+C pe tastatură pentru a copia codul sursă în clipboard.

copiază codul de pe site
Figura 2 - Copiază codul de pe site

Pasul 3 - Lipește codul în fișierul tău text

Apoi, trebuie să plasezi codul sursă copiat în fișierul tău text gol. Pentru a face asta, trebuie doar să navighezi către fișierul text și să apeși Ctrl+V pe tastatură. Prin efectuarea acestei acțiuni, codul sursă va fi plasat în fișierul tău text, așa cum demonstrează Figura 3.

lipește codul programului în editorul de text
Figura 3 - Lipește codul programului în editorul de text

Pasul 4 - Salvați textul ca fișier Perl

Pentru a crea fișierul Perl, trebuie doar să salvați fișierul text cu extensia specifică fișierelor Perl. Această extensie este .pl. Deci, selectați opțiunea 'Salvează ca' în Notepad, așa cum puteți vedea în Figura 4, și după ce ați dat un nume fișierului, adăugați extensia '.pl' și faceți clic pe 'Salvează'. Operațiunea tocmai a creat fișierul Perl necesar pentru a rula exemplul de SMS în Perl.

salvați fișierul perl httpapitester
Figura 4 - Salvați fișierul Perl HttpApiTester

Pasul 5 - Deschideți Promptul de Comandă

Ultimul pas principal al ghidului este să rulați fișierul Perl creat anterior. În acest caz, veți rula exemplul folosind Promptul de Comandă. Puteți deschide cu ușurință Promptul de Comandă deschizând File Explorer și, ca în Figura 5, tastați 'cmd' în bara de adrese și apăsați Enter. Dacă navigați în folderul unde ați salvat fișierul Perl în File Explorer, Promptul de Comandă va folosi această locație ca implicită, astfel încât puteți rula fișierul Perl imediat.

deschideți promptul de comandă
Figura 5 - Deschideți Promptul de Comandă

Pasul 6 - Rulați fișierul Perl

Ultimul lucru pe care trebuie să-l faceți este să inițiați comanda care rulează fișierul Perl. Aceasta este o comandă simplă; trebuie doar să scrieți 'perl *nume fișier*.pl' în Promptul de Comandă, așa cum arată Figura 6. După ce apăsați Enter, fișierul Perl execută comenzile din interior și trimite mesajul de test. Cererea HTTP și răspunsul de la SMS Gateway vor fi afișate în Promptul de Comandă.

rulați scriptul pl httpapitester
Figura 6 - Rulați scriptul HttpApiTester.pl

Pasul 7 - Verificați rezultatul trimiterii în jurnalul Ozeki

Ozeki 10 SMS Gateway vă permite să verificați ce mesaje au fost trimise de aplicația dvs., deoarece serviciul HTTP API înregistrează fiecare eveniment care a avut loc în timp ce a fost activat. Deci, dacă deschideți SMS Gateway și selectați detaliile serviciului HTTP API, veți putea vedea evenimentele. După cum puteți vedea în Figura 7, serviciul a înregistrat un eveniment când programul Perl a trimis cererea HTTP către serviciu.

verificați jurnalele serviciului http api
Figura 7 - Verificați jurnalele serviciului HTTP API

Evenimentele care au avut loc în timpul trimiterii mesajului pot fi verificate și prin intermediul evenimentelor. Pentru aceasta, deschideți conexiunea HTTP API User, pe care a trebuit să o configurați anterior. Figura 8 demonstrează cum conexiunea gestionează cererea HTTP și trimite mesajul către destinatarul specificat în programul vostru de exemplu SMS în Perl.

verificați jurnalele utilizatorului http api
Figura 8 - Verificați jurnalele utilizatorului HTTP API

Rezumat

În acest articol, vă oferim informații despre cum să trimiteți mesaje SMS folosind Perl. Am inclus și un exemplu de cod pe care îl puteți folosi pentru a începe procesul de implementare. Configurarea unei soluții care poate folosi limbajul Perl pentru a trimite SMS vă va ușura implementarea soluției de trimitere SMS în sistemul vostru de comunicare.

Dacă doriți să implementați mai multe limbaje de programare în sistemul vostru de comunicare, nu ezitați să vizitați articolele despre alte limbaje de programare compatibile cu Ozeki SMS Gateway, cum ar fi: Java.

Acum, următorul lucru pe care trebuie să-l faceți este să descărcați Ozeki SMS Gateway și să configurați această soluție imediat! Totul este pregătit pentru a o pune în funcțiune în mai puțin de 10 minute.

More information