Cum să ștergi un SMS în Perl

Cea mai simplă metodă de a șterge SMS-uri din Perl este utilizarea API-ului HTTP/Rest SMS încorporat al Ozeki SMS Gateway. Când folosești acest API, vei trimite mesaje SMS prin trimiterea unei cereri HTTP Post către gateway-ul SMS. Cererea HTTP Post va conține un mesaj formatat în format json. Gateway-ul SMS va trimite acest SMS către telefonul destinatar și va returna un răspuns HTTP 200 OK la cererea ta.

Exemplul de cod Perl SMS de mai jos demonstrează cum poți primi SMS folosind API-ul http rest sms al Ozeki SMS Gateway cu ajutorul bibliotecii Perl Ozeki.Libs.Rest. Această bibliotecă este oferită gratuit și o poți folosi și modifica în oricare dintre proiectele tale.

DeleteSms.pl

use Ozeki::Libs::Rest::Configuration;
use Ozeki::Libs::Rest::MessageApi;
use Ozeki::Libs::Rest::Message;
use Ozeki::Libs::Rest::Folder;

my $configuration = new Ozeki::Libs::Rest::Configuration();
$configuration->{ Username } = "http_user";
$configuration->{ Password } = "qwe123";
$configuration->{ ApiUrl } = "http://127.0.0.1:9509/api";

my $msg = new Ozeki::Libs::Rest::Message();
#Trebuie să modifici acest atribut ID pentru a șterge un anumit mesaj
$msg->{ ID } = "19fed2a2-da46-11eb-8339-ffacbeab4160";

my $api = new Ozeki::Libs::Rest::MessageApi($configuration);

my $result = $api->Delete(Ozeki::Libs::Rest::Folder->Inbox, $msg);

print($result);
	

Cum să folosești exemplul Perl SMS:

Acest exemplu Perl SMS poate fi folosit în orice aplicație Perl. Pentru a-l folosi, trebuie să adaugi biblioteca Ozeki.Libs.Rest în proiectul tău. După ce biblioteca este adăugată, trebuie să incluzi directiva using Ozeki.Libs.Rest; în secțiunea de antet a codului sursă Perl. Acest lucru îți va permite să folosești clasele furnizate de biblioteca Ozeki.Libs.Rest. Poți folosi clasa Message pentru a crea SMS-ul. Poți folosi clasa MessageApi pentru a șterge mesajele SMS către gateway-ul SMS. Gateway-ul SMS va trimite mesajul tău către rețeaua mobilă fie prin conexiune wireless fie prin Internet.

Codul sursă explicat în acest articol poate fi descărcat, folosit și modificat gratuit.
Descarcă: DeleteSms.pl.zip (76.1Kb)

Fișierul DeleteSms.pl.zip conține biblioteca Ozeki.Libs.Rest, care îți oferă toate instrumentele necesare pentru a trimite, primi și șterge mesaje SMS. Vei găsi de asemenea proiectul DeleteSms în arhivă, care conține codul exemplu pentru a-ți arăta cum să ștergi un SMS. Acest cod exemplu este listat mai jos.

Pentru a șterge SMS folosind Perl:

1. Descarcă fișierul DeleteSms.pl.zip
2. Extrage fișierul .zip din folderul Descărcări
3. Deschide fișierul DeleteSms.pl în orice editor de text
4. Pornește Ozeki SMS Gateway
5. Selectează http_user în fila Utilizatori și aplicații
6. Verifică detaliile mesajului în Inbox
7. Introdu ID-ul mesajului SMS în codul DeleteSms.pl
8. Rulează DeleteSms.pl pentru a șterge SMS cu Perl

Pentru a putea trimite SMS din Perl, mai întâi trebuie să instalezi Ozeki SMS Gateway. Gateway-ul SMS poate fi instalat pe același computer unde dezvolți codul tău Perl în Visual studio. După instalare, următorul pas este să conectezi Ozeki SMS Gateway la rețeaua mobilă. Poți trimite un SMS test din interfața Ozeki pentru a verifica dacă conexiunea ta la rețeaua mobilă funcționează. Ultimul pas pentru a-ți pregăti mediul este să creezi un utilizator HTTP sms api. Creează un utilizator cu numele de utilizator "http_user" și parola "qwe123" pentru a face exemplul să funcționeze fără modificări.

După ce mediul este configurat, poți rula codul tău Perl.

Pentru a trimite SMS din Perl, aplicația ta Perl va trebui să trimită o cerere HTTP către gateway-ul SMS. URL-ul API este afișat mai jos. Reține că adresa IP (127.0.0.1) ar trebui să fie înlocuită cu adresa IP a gateway-ului tău SMS. Dacă Ozeki SMS Gateway este instalat pe același computer unde rulează aplicația Perl SMS, aceasta poate fi 127.0.0.1. Dacă este instalat pe un computer diferit, ar trebui să fie adresa IP a acelui computer.

http://127.0.0.1:9509/api?action=rest
	

Pentru a autentifica clientul Perl SMS, trebuie să trimiți numele de utilizator și parola într-un șir codificat base64 către server într-o cerere HTTP. Formatul folosit este: base64(nume_utilizator+":"+parolă). În Perl poți folosi următorul cod pentru a face această codificare:

my ($self, $Username, $Password) = @_;
my $Username_Password = "${Username}:${Password}";
my $Username_Password_encoded = encode_base64($Username_Password);
return "Basic ${Username_Password_encoded}";
	

De exemplu, dacă codezi numele de utilizator 'http_user' și parola 'qwe123', vei obține următorul șir codificat base64: aHR0cF91c2VyOnF3ZTEyMw==. Pentru a trimite

Cerere HTTP pentru ștergerea SMS-urilor cu Perl

Pentru a șterge SMS-uri, aplicația ta Perl va trimite o cerere HTTP similară cu cea de mai jos. Reține că această cerere conține o parte de antet HTTP și o parte de corp HTTP. Corpul HTTP este un șir de date codificat în JSON. Acesta conține numărul destinatarului și textul mesajului.

POST /api?action=deletemsg HTTP/1.1
Connection: TE, close
Content-Length: 153
Content-Type: application/json; charset=utf8
Authorization: Basic aHR0cF91c2VyOnF3ZTEyMw==
Host: 192.168.0.14:9509
Te: deflate,gzip;q=0.3
User-Agent: libwww-perl/6.43

{
	"folder":"inbox",
	"message_ids":	[
		"da837770-e3bd-4970-a824-579423d9b242"
	]
}
	

Antetul cererii HTTP pentru ștergerea SMS-urilor din Perl

Pentru a trimite mesajele SMS, trebuie să incluzi următoarele linii ca anteturi în cererea HTTP. Reține că includem un tip de conținut și un antet de autorizare.

Content-Type: application/json
Authorization: Basic QWxhZGRpbjpvcGVuIHNlc2FtZQ==
	

Răspunsul HTTP primit de exemplul Perl pentru SMS

Odată ce gateway-ul SMS primește această cerere, va genera un răspuns HTTP. Răspunsul HTTP va conține un cod de stare, pentru a indica dacă trimiterea SMS-ului a fost reușită sau nu. De asemenea, va returna o structură codificată în JSON pentru a-ți oferi detalii utile despre trimiterea mesajului.

HTTP/1.1 200 OK
User-Agent: OZEKI 10.3.123 (www.myozeki.com)
Content-Type: application/json; charset=utf8
Last-Modified: Fri, 02 Jul 2021 16:00:35 GMT
Server: 10/10.3.123
Transfer-Encoding: chunked

{
	"http_code": 200,
	"response_code": "SUCCESS",
	"response_msg": "",
	"data": {
	  "folder": "inbox",
	  "message_ids": [
	    "da837770-e3bd-4970-a824-579423d9b242"
	  ]
	}
}
	

Cum să descarci codul (Tutorial video)

Exemplu Perl pentru SMS: DeleteSms.pl

Codul exemplu de mai jos face parte din DeleleSms.pl (Figura 3). Când rulezi acest cod, acesta va șterge un mesaj cu ID-ul furnizat în cod. Poți găsi ID-ul furnizat în variabila 'ID'. Rulează codul și acesta va căuta mesajul și îl va șterge. Dacă ești familiarizat cu limbajul de programare Perl, simte-te liber să modifici codul.

Utilizarea codului (Tutorial video)

În acest videoclip, vei vedea codul în acțiune. Îți vom prezenta cum să rulezi codul și să verifici rezultatele acestuia. Videoclipul va începe cu un terminal deschis și codul deschis și va arăta dosarul inbox gol la final. Videoclipul durează doar 1:14 și este ușor de urmărit. Nu vei avea probleme în a urmări pașii.

Rezumat

Pe această pagină, ai citit despre cum să ștergi mesaje SMS din Perl folosind API-ul REST HTTP al Ozeki SMS Gateway. Acum, poți crea condițiile pentru a utiliza depozitarul Perl descărcabil pentru a șterge mesaje SMS. Această soluție poate fi un factor de schimbare în sistemul tău de mesagerie datorită apelurilor de metode bine scrise și a unei clase SMS bine proiectate care îți permite să configurezi parametrii SMS.

Ozeki SMS Gateway are mult mai multe de oferit, așa că mergi și aruncă o privire asupra unui alt articol interesant. Îți recomand ghidul Cum să descarci cea mai recentă bibliotecă Perl pentru SMS de pe Github pentru mai multe informații.

Descarcă Ozeki SMS Gateway și configurează-ți sistemul acum!