Kako poslati SMS iz Perl-a

Spodnji primer kode bo pokazal, kako lahko uporabite HTTP zahteve za pošiljanje SMS sporočil iz Perl-a prek SMS Gateway-a. Perl program najprej nastavi vse pomembne spremenljivke, ki bodo uporabljene za pošiljanje sporočila. Nato ustvari niz za pošiljanje sporočila in na koncu sproži HTTP zahtevo. Odzivno sporočilo bo prav tako izpisano s strani programa.

Perl SMS API omogoča pošiljanje SMS sporočil iz programa, napisanega v Perl-u. Uporablja HTTP zahteve in šifrirano komunikacijo s SSL za posredovanje zahteve za pošiljanje SMS-ov na SMS Gateway.

• Nameščen Perl
• Nameščen Ozeki 10 SMS Gateway
• Konfiguriran uporabnik HTTP API

1. Odprite Notepad
2. Ustvarite novo datoteko
3. Kopirajte in prilepite primer kode s te strani
4. Shranite datoteko kot HttpApiTester.pl
5. Odprite Command Prompt
6. Pojdite v mapo, kjer ste shranili Perl datoteko
7. Vpišite 'perl HttpApitester.pl' v Command Prompt
8. Pritisnite Enter za zagon Perl datoteke

Spodnji primer Perl izvorne kode je prosto dostopen, lahko ga preprosto implementirate v svoj projekt ali pa spremenite izvorno kodo za uporabo v drugih projektih ali aplikacijah. Če želite samo zagnati in preizkusiti ta primer, morate le slediti zgornjim navodilom ali si ogledati vadnico, ki prikazuje način ustvarjanja Perl datoteke za izvorno kodo in njen zagon iz Command Prompt-a.

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

}

# Call main.
main();

Da lahko zaženete zgornji primer kode, morate najprej ustvariti Perl datoteko za to. Za izvedbo te operacije potrebujete le urejevalnik besedila. Lahko prenesete urejevalnik besedila po meri, vendar lahko opravilo opravi tudi privzeta aplikacija Notepad, nameščena na Windowsu. Tako, kot prikazuje Slika 1, preprosto odprite aplikacijo Notepad z namizja.

Naslednji korak je pridobitev izvorne kode. To je enostavna naloga, saj je koda na voljo na tej strani, zato jo morate le kopirati. Tako, kot vidite na Sliki 2, preprosto pojdite na razdelek s primerom kode na tej strani, označite celotno izvorno kodo in pritisnite Ctrl+C na tipkovnici, da kopirate izvorno kodo v odložišče.

Nato morate kopirano izvorno kodo postaviti v vašo prazno besedilno datoteko. Če želite to narediti, morate le navigirati do besedilne datoteke in pritisniti Ctrl+V na tipkovnici. S tem dejanjem bo izvorna koda postavljena v vašo besedilno datoteko, kot prikazuje Slika 3.

4. korak - Shranite besedilo kot datoteko Perl

Za ustvarjanje datoteke Perl morate besedilno datoteko shraniti s končnico datotek Perl. Ta končnica je .pl. Torej, izberite možnost 'Shrani kot' v Notepad, kot je prikazano na sliki 4, in ko datoteki določite ime, ji dodajte končnico '.pl' in kliknite na 'Shrani'. Ta operacija je ustvarila datoteko Perl, ki jo potrebujete za zagon primera SMS v Perl.

Zadnji glavni korak v navodilih je zagon datoteke Perl, ki ste jo ustvarili prej. V tem primeru boste primer zagnali z uporabo ukazne vrstice. Ukazno vrstico lahko enostavno odprete tako, da odprete Raziskovalec datotek in kot je prikazano na sliki 5, v naslovno vrstico vtipkate 'cmd' in pritisnete Enter. Če v Raziskovalcu datotek navigirate do mape, kjer ste shranili datoteko Perl, bo ukazna vrstica privzeto uporabila to lokacijo, tako da lahko datoteko Perl takoj zaženete.

Zadnja stvar, ki jo morate narediti, je iniciacija ukaza, ki zažene datoteko Perl. To je preprost ukaz; v ukazni vrstici morate samo napisati 'perl *ime datoteke*.pl', kot prikazuje slika 6. Ko pritisnete Enter, datoteka Perl izvede ukaze v njej in pošlje testno sporočilo. HTTP zahteva in odgovor od SMS Gateway bosta izpisana v ukazni vrstici.

Ozeki 10 SMS Gateway omogoča preverjanje, katere sporočila je poslala vaša aplikacija, saj storitev HTTP API beleži vsak dogodek, ki se zgodi, ko je omogočena. Če odprete SMS Gateway in izberete podrobnosti storitve HTTP API, boste lahko videli dogodke. Kot je prikazano na sliki 7, je storitev zabeležila dogodek, ko je program Perl poslal HTTP zahtevo storitvi.

Dogodke, ki so se zgodili med pošiljanjem sporočila, lahko preverite tudi prek dogodkov. Za to odprite povezavo uporabnika HTTP API, ki ste jo morali konfigurirati prej. Slika 8 prikazuje, kako povezava obdela HTTP zahtevo in pošlje sporočilo prejemniku, ki ste ga določili v vašem programu za primer SMS v Perl.

V tem članku vam nudimo informacije o tem, kako pošiljati SMS sporočila z uporabo Perl. Vključili smo tudi primer kode, ki ga lahko uporabite za začetek procesa implementacije. Nastavitev rešitve, ki lahko uporablja jezik Perl za pošiljanje SMS, bo olajšala implementacijo rešitve za pošiljanje SMS v vaš komunikacijski sistem.

Če želite v svoj komunikacijski sistem implementirati več programskih jezikov, obiščite članke o drugih programskih jezikih, ki so združljivi s SMS Gateway Ozeki, kot so: Java.

Naslednja stvar, ki jo morate storiti, je prenos SMS Gateway Ozeki in takojšnja konfiguracija te rešitve! Vse je pripravljeno, da jo lahko vzpostavite v manj kot 10 minutah.