Lenguaje "Perl"

Enviar mensajes – REST API – JSON

[perl]
use REST::Client;
use MIME::Base64;

my $api_key = "myusername";
my $api_pass = "mypassword";
my $client = REST::Client->new();

$client->addHeader("Authorization", "Basic " .
                   encode_base64("$api_key:$api_pass", ""));
$client->addHeader('Content-Type', 'application/json');
$client->addHeader('charset', 'UTF-8');
$client->addHeader('Accept', 'application/json');

$req = '{
    "message" : "Text of the SMS message",
    "tpoa" : "Sender",
    "recipient" : [
        {
            "msisdn":"12015550123"
        },
        {
            "msisdn":"447400123456"
        },
        {
            "msisdn":"5212221234567"
        }]
    }';

$url = "https://api.labsmobile.com/json/send";

$client->POST($url, $req);
print $client->responseContent();
[/perl]

Consulta de créditos – REST API – JSON

[perl]
use REST::Client;
use MIME::Base64;

my $api_key = "myusername";
my $api_pass = "mypassword";
my $client = REST::Client->new();

$client->addHeader("Authorization", "Basic " .
                   encode_base64("$api_key:$api_pass", ""));
$client->addHeader('Content-Type', 'application/json');
$client->addHeader('charset', 'UTF-8');
$client->addHeader('Accept', 'application/json');

$url = "https://api.labsmobile.com/json/balance";

$client->GET($url);
print $client->responseContent();
[/perl]

Enviar mensajes – HTTP/GET

[perl]
use LWP::Simple;
$contents = get("http://api.labsmobile.com/get/send.php?username=[X]&password=[X]&msisdn=34609036253&sender=SENDER&message=This+is+the+message");
[/perl]

Consulta de créditos – HTTP/GET

[perl]
use LWP::Simple;
$contents = get("http://api.labsmobile.com/get/balance.php?username=[X]&password=[X]");
[/perl]