Jak poslat SMS z Perlu

Následující ukázkový kód demonstruje, jak můžete použít HTTP požadavky k odesílání SMS zpráv z Perlu přes SMS Gateway. Perl program nejprve nastaví všechny důležité proměnné, které budou použity pro odeslání zprávy. Poté vytvoří řetězec pro odeslání zprávy a nakonec iniciuje HTTP požadavek. Program také vypíše odpověď.

Co je Perl SMS API?

Perl SMS API umožňuje odesílat SMS zprávy z programu napsaného v Perlu. Používá HTTP požadavky a šifrovanou SSL komunikaci k předání požadavku na odeslání SMS do SMS Gateway.

Předpoklady

• Nainstalovaný Perl
• Nainstalovaný Ozeki 10 SMS Gateway
• Nakonfigurovaný HTTP API uživatel

Odeslání SMS z Perlu

1. Otevřete Poznámkový blok
2. Vytvořte nový soubor
3. Zkopírujte a vložte ukázkový kód z této stránky
4. Uložte soubor jako HttpApiTester.pl
5. Otevřete Příkazový řádek
6. Přejděte do složky, kam jste uložili Perl soubor
7. Napište 'perl HttpApitester.pl' do Příkazového řádku
8. Stiskněte Enter pro spuštění Perl souboru

Ukázkový zdrojový kód v Perlu

Následující ukázkový zdrojový kód v Perlu je volně k použití, můžete jej jednoduše implementovat do svého projektu nebo upravit pro jiné projekty či aplikace. Pokud chcete tento příklad pouze spustit a otestovat, stačí postupovat podle výše uvedených instrukcí nebo sledovat návodové video, které ukazuje, jak vytvořit Perl soubor se zdrojovým kódem a spustit jej z Příkazového řádku.

#!/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 "Odesílání html požadavku: ".$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 "Přijata http odpověď :\n";
	print $response->content;

}

# Call main.
main();

Krok 1 - Otevření textového editoru

Abyste mohli spustit výše uvedený ukázkový kód, musíte nejprve vytvořit Perl soubor. K provedení této operace potřebujete pouze textový editor. Můžete si stáhnout vlastní textový editor, ale výchozí aplikace Poznámkový blok nainstalovaná ve Windows také postačí. Jak ukazuje Obrázek 1, jednoduše otevřete aplikaci Poznámkový blok ze svého počítače.

Krok 2 - Kopírování zdrojového kódu

Dalším krokem je získání zdrojového kódu. Toto je snadný úkol, protože kód najdete na této stránce, takže jej stačí zkopírovat. Jak vidíte na Obrázku 2, přejděte do sekce s ukázkovým kódem na této stránce, označte celý zdrojový kód a stiskněte Ctrl+C na klávesnici, abyste zkopírovali zdrojový kód do schránky.

Krok 3 - Vložení kódu do textového souboru

Dále je třeba vložit zkopírovaný zdrojový kód do prázdného textového souboru. K tomu stačí přejít do textového souboru a stisknout Ctrl+V na klávesnici. Tímto způsobem bude zdrojový kód vložen do vašeho textového souboru, jak ukazuje Obrázek 3.

Pro vytvoření Perl souboru stačí uložit textový soubor s příponou Perl souborů. Tato přípona je .pl. Vyberte tedy možnost 'Uložit jako' v programu Poznámkový blok, jak je vidět na obrázku 4, a po zadání názvu souboru přidejte příponu '.pl' a klikněte na 'Uložit'. Tato operace právě vytvořila Perl soubor, který potřebujete ke spuštění příkladu s Perl SMS.

Krok 5 - Otevření příkazového řádku

Posledním hlavním krokem tohoto průvodce je spuštění Perl souboru, který jste předtím vytvořili. V tomto případě budete příklad spouštět pomocí příkazového řádku. Příkazový řádek můžete snadno otevřít spuštěním Průzkumníka souborů a, jak je vidět na obrázku 5, jednoduše napište 'cmd' do adresního řádku a stiskněte Enter. Pokud v Průzkumníku souborů přejdete do složky, kde jste uložili Perl soubor, příkazový řádek bude toto umístění používat jako výchozí, takže můžete Perl soubor spustit okamžitě.

Krok 6 - Spuštění Perl souboru

Poslední věc, kterou musíte udělat, je zadat příkaz, který spustí Perl soubor. Tento příkaz je jednoduchý; stačí napsat 'perl *název souboru*.pl' do příkazového řádku, jak ukazuje obrázek 6. Po stisknutí Enter se Perl soubor spustí a provede příkazy uvnitř, čímž odešle testovací zprávu. HTTP požadavek a odpověď od SMS brány se zobrazí v příkazovém řádku.

Krok 7 - Kontrola výsledku odeslání v logu Ozeki

Ozeki 10 SMS Gateway umožňuje kontrolovat, které zprávy byly odeslány vaší aplikací, protože služba HTTP API zaznamenává každou událost, která nastane během její činnosti. Pokud tedy otevřete SMS Gateway a zobrazíte detaily služby HTTP API, uvidíte všechny události. Jak je vidět na obrázku 7, služba zaznamenala událost, když Perl program odeslal HTTP požadavek na službu.

Události, které nastaly během odesílání zprávy, lze také zkontrolovat v logu. Pro tento účel otevřete připojení HTTP API User, které jste předtím nakonfigurovali. Obrázek 8 ukazuje, jak připojení zpracovává HTTP požadavek a odesílá zprávu příjemci, kterého jste zadali ve vašem Perl SMS příkladu.

Shrnutí

V tomto článku jsme vám poskytli informace o tom, jak odesílat SMS zprávy pomocí Perl. Zahrnuli jsme také příklad kódu, který můžete použít k zahájení implementačního procesu. Nastavení řešení, které umožňuje používat jazyk Perl k odesílání SMS, usnadní integraci této funkce do vašeho komunikačního systému.

Pokud byste chtěli do svého komunikačního systému implementovat další programovací jazyky, navštivte prosím články o dalších programovacích jazycích kompatibilních s Ozeki SMS Gateway, jako jsou: Java.

Nyní je vaším dalším krokem stáhnout si Ozeki SMS Gateway a tuto řešení okamžitě nakonfigurovat! Všechno je připraveno tak, aby bylo možné vše nastavit a spustit za méně než 10 minut.