Primanje SMS-a u Perlu

Na ovoj stranici moći ćete naučiti kako možete koristiti svoju Perl aplikaciju za primanje SMS poruka. Ovaj primjer Perl izvornog koda može prikupiti dolazne poruke iz SMS pristupnika i koristiti ih u aplikaciji. Ovu operaciju obavlja pomoću HTTP zahtjeva. Ovaj vodič pokazuje kako jednostavno možete stvoriti Perl aplikaciju i pokrenuti je na svom računalu. Dakle, počnimo odmah.

Što je Perl SMS API?

Perl SMS API osigurava mogućnost slanja SMS poruka iz programa napisanog u Perlu. Koristi HTTP zahtjeve i SSL šifriranu komunikaciju za prosljeđivanje zahtjeva za slanje SMS-a SMS pristupniku.

Preduvjeti

• Instalirani Perl
• Instalirani Ozeki 10 SMS pristupnik
• Konfigurirana HTTP Server veza

Primanje SMS-a u Perlu

1. Otvorite Notepad
2. Kopirajte i zalijepite primjer koda s ove stranice
3. Spremite datoteku kao ReceiveSMS.pl
4. Otvorite Ozeki SMS pristupnik i odaberite HTTP Server vezu
5. Otvorite HTML obrazac HTTP Server veze
6. Pošaljite neke testne poruke
7. Otvorite Command Prompt
8. Upišite 'perl ReceiveSMS.pl' u Command Prompt i pritisnite Enter

Primjer koda u nastavku možete besplatno koristiti u vlastitom rješenju ili aplikaciji i možete ga modificirati ako želite. Primjer koda može prikupiti poruke iz SMS pristupnika i koristiti ih u Perl aplikaciji. Ako želite testirati primjer, slijedite korak-po-korak upute u nastavku ili pogledajte video koji jasno prikazuje sve korake koje trebate izvršiti za pokretanje Perl SMS primjera.

#!/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 "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";

	DisplayMessages($response->content)
}

main();

sub DisplayMessages {
	my $data = XMLin(@_);
	my $sender = "";
	my $text = "";
 	if($data->{data}->{message} eq 'No more messages.')	{
 		print "The inbox is empty!";
 		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";
}

Korak 1 - Otvorite Notepad

Prva stvar koju morate učiniti da biste dovršili ovaj vodič je stvoriti Perl datoteku koju morate izvršiti kako biste vidjeli kako dobiva SMS poruke iz SMS pristupnika. Dakle, u ovom trenutku morate otvoriti aplikaciju Notepad na svom računalu kako biste mogli stvoriti Perl datoteku. Za to, kao što je prikazano na slici 1, kliknite na njezinu ikonu na radnoj površini.

Korak 2 - Kopirajte Perl izvorni kod s ove stranice

Zatim, morate dobiti Perl izvorni kod s ove stranice kako biste ga koristili na svom računalu. Dakle, samo se pomaknite gore do odjeljka s primjerom koda i označite cijeli izvorni kod. Zatim, kao što možete vidjeti na slici 2, morate ga kopirati u svoj međuspremnik. To možete učiniti pritiskom na Ctrl+C na tipkovnici.