Přijímání SMS v Perlu

Na této stránce se dozvíte, jak můžete použít svou Perl aplikaci k přijímání SMS zpráv. Tento příklad Perl zdrojového kódu je schopen sbírat příchozí zprávy ze SMS brány a používat je v aplikaci. Tuto operaci provádí pomocí HTTP požadavku. Tento průvodce ukazuje, jak snadno můžete vytvořit Perl aplikaci a spustit ji na svém počítači. Takže začněme hned teď.

Co je Perl SMS API?

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

Předpoklady

• Nainstalovaný Perl
• Nainstalovaná Ozeki 10 SMS brána
• Nakonfigurované HTTP Server připojení

Přijímání SMS v Perlu

1. Otevřete Poznámkový blok
2. Zkopírujte a vložte příklad kódu z této stránky
3. Uložte soubor jako ReceiveSMS.pl
4. Otevřete Ozeki SMS bránu a vyberte HTTP Server připojení
5. Otevřete HTML formulář HTTP Server připojení
6. Odešlete několik testovacích zpráv
7. Otevřete Příkazový řádek
8. Napište 'perl ReceiveSMS.pl' do Příkazového řádku a stiskněte Enter

Níže uvedený příklad kódu můžete zdarma použít ve svém vlastním řešení nebo aplikaci a můžete ho upravit, pokud chcete. Příklad kódu dokáže sbírat zprávy z SMS brány a používat je v Perl aplikaci. Pokud chcete příklad otestovat, postupujte podle kroků níže nebo se podívejte na video, které jasně ukazuje všechny kroky, které je třeba provést k spuštění Perl SMS příkladu.

#!/usr/bin/perl 
use strict; 
use warnings; 
use XML::Simple;
use Data::Dumper;
require HTTP::Request;
require LWP::UserAgent;

sub main
{
    my $username = "john";
	my $password = "Xc3ffs";
	my $httpUrl = "https://127.0.0.1:9508/";
	my $folder = "inbox";
	my $limit = "3";

    my $sendString = $httpUrl."api?action=receivemessage&username="
                    .$username."&password=".$password."&folder="
                    .$folder."&limit=".$limit
                    ."&messagedata=&afterdownload=delete";
    
    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";

	DisplayMessages($response->content)
}

main();

sub DisplayMessages {
	my $data = XMLin(@_);
	my $sender = "";
	my $text = "";
 	if($data->{data}->{message} eq 'No more messages.')	{
 		print "Doručená pošta je prázdná!";
 		return;
 	}

	if (ref($data->{data}->{message}) eq 'ARRAY') {
		foreach my $value (@{ $data->{data}->{message} }) {
			$sender = $value->{originator};
			$text =  $value->{messagedata};
			DisplayMessage($sender,$text);
		}
	} 
	else {
		$sender = $data->{data}->{message}->{originator};
		$text = $data->{data}->{message}->{messagedata};
		DisplayMessage($sender,$text);
	}
}

sub DisplayMessage {
	print $_[0].": ".$_[1]."\n";
}

Krok 1 - Otevřete Poznámkový blok

První věc, kterou musíte udělat k dokončení tohoto návodu, je vytvořit Perl soubor, který musíte spustit, abyste viděli, jak získává SMS zprávy z SMS brány. V tomto okamžiku tedy musíte otevřít aplikaci Poznámkový blok na svém počítači, abyste mohli vytvořit Perl soubor. Pro to, jak je vidět na Obrázku 1, klikněte na jeho ikonu na ploše.

Krok 2 - Zkopírujte Perl zdrojový kód z této stránky

Dále potřebujete získat Perl zdrojový kód z této stránky, abyste jej mohli použít na svém počítači. Takže jednoduše přejděte nahoru do sekce s příkladem kódu a označte celý zdrojový kód. Poté, jak je vidět na Obrázku 2, jej musíte zkopírovat do schránky. To lze provést stisknutím Ctrl+C na klávesnici.