Ako poslať SMS z Perlu

Príklad kódu nižšie demonštruje, ako môžete použiť HTTP požiadavky na odosielanie SMS správ z Perlu cez SMS bránu. Perl program najprv nastaví všetky dôležité premenné, ktoré sa použijú na odoslanie správy. Potom vytvorí reťazec pre odoslanie správy a nakoniec iniciuje HTTP požiadavku. Odpoveď bude tiež vytlačená programom.

Perl SMS API zabezpečuje možnosť odosielania SMS správ z programu napísaného v Perli. Používa HTTP požiadavky a SSL šifrovanú komunikáciu na preposlanie požiadavky na odoslanie SMS do SMS brány.

• Nainštalovaný Perl
• Nainštalovaná Ozeki 10 SMS brána
• Nakonfigurovaný HTTP API používateľ

1. Otvorte Poznámkový blok
2. Vytvorte nový súbor
3. Skopírujte a vložte príklad kódu z tejto stránky
4. Uložte súbor ako HttpApiTester.pl
5. Otvorte Príkazový riadok
6. Prejdite do priečinka, kde ste uložili Perl súbor
7. Napíšte 'perl HttpApitester.pl' do Príkazového riadku
8. Stlačte Enter na spustenie Perl súboru

Tento príklad Perl zdrojového kódu nižšie je voľne použiteľný, môžete ho jednoducho implementovať do svojho projektu, alebo môžete upraviť zdrojový kód na použitie pre iné projekty alebo aplikácie. Ak chcete len spustiť a otestovať tento príklad, všetko, čo musíte urobiť, je postupovať podľa vyššie uvedených inštrukcií alebo sledovať návodové video, ktoré demonštruje spôsob vytvorenia Perl súboru pre zdrojový kód a jeho spustenie z Príkazového riadku.

#!/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 "Odosielanie html požiadavky: ".$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 "Prijatá http odpoveď :\n";
	print $response->content;

}

# Volanie main.
main();

Aby ste mohli spustiť vyššie uvedený príklad kódu, musíte najprv vytvoriť Perl súbor. Na vykonanie tejto operácie potrebujete iba textový editor. Môžete si stiahnuť vlastný textový editor, ale predvolená aplikácia Poznámkový blok nainštalovaná v systéme Windows môže túto úlohu vykonať rovnako dobre. Takže, ako ukazuje obrázok 1, jednoducho otvorte aplikáciu Poznámkový blok z vášho pracovného stola.

Ďalším krokom je získanie zdrojového kódu. Toto je jednoduchá úloha, pretože kód možno nájsť na tejto stránke, takže ho stačí skopírovať. Takže, ako vidíte na obrázku 2, jednoducho prejdite na sekciu príkladu kódu na tejto stránke, označte celý zdrojový kód a stlačte Ctrl+C na klávesnici, aby ste skopírovali zdrojový kód do schránky.

Ďalej musíte vložiť skopírovaný zdrojový kód do vášho prázdneho textového súboru. Na to stačí prejsť do textového súboru a stlačiť Ctrl+V na klávesnici. Týmto krokom bude zdrojový kód vložený do vášho textového súboru, ako to demonštruje obrázok 3.

Krok 4 - Uložte text ako Perl súbor

Ak chcete vytvoriť Perl súbor, stačí uložiť textový súbor s príponou Perl súborov. Táto prípona je .pl. Takže vyberte možnosť 'Uložiť ako' v poznámkovom bloku, ako to vidíte na obrázku 4, a po zadaní názvu súboru ho pripojte s príponou '.pl' a kliknite na 'Uložiť'. Táto operácia práve vytvorila Perl súbor, ktorý potrebujete na spustenie príkladu Perl SMS.

Posledným hlavným krokom v tomto návode je spustenie Perl súboru, ktorý ste predtým vytvorili. V tomto prípade budete príklad spúšťať pomocou príkazového riadku. Príkazový riadok môžete ľahko otvoriť otvorením prieskumníka súborov a, ako je znázornené na obrázku 5, jednoducho napíšte 'cmd' do adresného riadka a nakoniec stlačte Enter. Ak v prieskumníkovi súborov prejdete do priečinka, kde ste uložili Perl súbor, príkazový riadok bude túto polohu používať ako predvolenú, takže môžete Perl súbor okamžite spustiť.

Posledná vec, ktorú musíte vykonať, je spustiť príkaz, ktorý spustí Perl súbor. Toto je jednoduchý príkaz; stačí napísať 'perl *názov súboru*.pl' do príkazového riadku, ako to ukazuje obrázok 6. Po stlačení klávesu Enter sa Perl súbor spustí a vykoná príkazy v ňom obsiahnuté a odošle testovaciu správu. HTTP požiadavka a odpoveď zo SMS brány sa zobrazia v príkazovom riadku.

Ozeki 10 SMS Gateway umožňuje skontrolovať, aké správy boli odoslané vašou aplikáciou, pretože služba HTTP API zaznamenáva každú udalosť, ktorá sa vyskytla počas jej činnosti. Takže, ak otvoríte SMS bránu a vyberiete detaily služby HTTP API, budete môcť vidieť udalosti. Ako vidíte na obrázku 7, služba zaznamenala udalosť, keď Perl program odoslal HTTP požiadavku na službu.

Udalosti, ktoré sa vyskytli počas odosielania správy, môžete skontrolovať aj prostredníctvom udalostí. Preto otvorte HTTP API používateľské pripojenie, ktoré ste museli predtým nakonfigurovať. Obrázok 8 demonštruje, ako pripojenie spracováva HTTP požiadavku a odosiela správu príjemcovi, ktorého ste zadali vo vašom Perl SMS príklade.

V tomto článku sme vám poskytli informácie o tom, ako odosielať SMS správy pomocou Perl. Taktiež sme zahrnuli príklad kódu, ktorý môžete použiť na začatie procesu implementácie. Nastavenie riešenia, ktoré dokáže používať Perl na odosielanie SMS, uľahčí implementáciu riešenia odosielania SMS do vášho komunikačného systému.

Ak by ste chceli implementovať viac programovacích jazykov do vášho komunikačného systému, neváhajte navštíviť články o ďalších programovacích jazykoch kompatibilných s Ozeki SMS Gateway, ako sú: Java.

Teraz je vašou ďalšou úlohou stiahnuť si Ozeki SMS Gateway a okamžite ho nakonfigurovať! Všetko je pripravené tak, aby ste ho mohli spustiť za menej ako 10 minút.