Kako poslati SMS iz Perla

Primjer koda u nastavku pokazuje kako možete koristiti HTTP zahtjeve za slanje SMS poruka iz Perla putem SMS Gatewaya. Perl program prvo postavlja sve važne varijable koje će se koristiti za slanje poruke. Zatim kreira string za slanje poruke i na kraju pokreće HTTP zahtjev. Odgovor također će biti ispisan od strane programa.

Što je Perl SMS API?

Perl SMS API omogućuje slanje SMS poruka iz programa napisanog u Perlu. Koristi HTTP zahtjeve i SSL šifriranu komunikaciju za prosljeđivanje zahtjeva za slanje SMS-a na SMS Gateway.

Preduvjeti

• Instaliran Perl
• Instaliran Ozeki 10 SMS Gateway
• Konfiguriran HTTP API korisnik

Slanje SMS-a iz Perla

1. Otvorite Notepad
2. Kreirajte novu datoteku
3. Kopirajte i zalijepite primjer koda s ove stranice
4. Spremite datoteku kao HttpApiTester.pl
5. Otvorite Command Prompt
6. Idite u mapu gdje ste spremili Perl datoteku
7. Upišite 'perl HttpApitester.pl' u Command Prompt
8. Pritisnite Enter za pokretanje Perl datoteke

Primjer Perl SMS izvornog koda

Donji primjer Perl izvornog koda je slobodan za korištenje, možete ga jednostavno implementirati u svoj projekt ili možete modificirati izvorni kod kako biste ga koristili za druge projekte ili aplikacije. Ako želite samo pokrenuti i testirati ovaj primjer, sve što trebate učiniti je slijediti upute iznad ili pogledati tutorial video koji pokazuje način kreiranja Perl datoteke za izvorni kod i pokretanje iz Command Prompta.

#!/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 "Slanje html zahtjeva: ".$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 "Primljen http odgovor :\n";
	print $response->content;

}

# Poziv main funkcije.
main();

Korak 1 - Otvorite aplikaciju za uređivanje teksta

Da biste mogli pokrenuti gornji primjer koda, prvo morate kreirati Perl datoteku za to. Da biste izvršili ovu operaciju, trebate samo imati uređivač teksta. Možete preuzeti prilagođeni uređivač teksta, ali zadana Notepad aplikacija instalirana na Windowsu također može obaviti posao. Dakle, kao što Slika 1 pokazuje, samo otvorite Notepad aplikaciju sa svog radnog prostora.

Korak 2 - Kopirajte izvorni kod

Sljedeći korak je dohvaćanje izvornog koda. Ovo je jednostavan zadatak, budući da se kod može pronaći na ovoj stranici, tako da ga samo trebate kopirati. Dakle, kao što možete vidjeti na Slici 2, samo idite na odjeljak s primjerom koda na ovoj stranici, označite cijeli izvorni kod i pritisnite Ctrl+C na tipkovnici kako biste kopirali izvorni kod u međuspremnik.

Korak 3 - Zalijepite kod u svoju tekstualnu datoteku

Zatim, morate postaviti kopirani izvorni kod u svoju praznu tekstualnu datoteku. Da biste to učinili, samo idite na tekstualnu datoteku i pritisnite Ctrl+V na tipkovnici. Izvođenjem ove radnje, izvorni kod će biti postavljen u vašu tekstualnu datoteku kao što Slika 3 pokazuje.