SMS Perl. Enviar SMS con Perl

SMS masivo desde 2002

El envío de SMS con Perl resulta sencillo utilizando la pasarela SMS de Altiria. A continuación puede encontrar un código de ejemplo que muestra cómo utilizar el protocolo de comunicación HTTP y el gateway SMS de Altiria para conseguir enviar un SMS a través de Perl.

¿Cómo enviar SMS con Perl?

Si desea conocer los detalles del funcionamiento de la pasarela debe consultar la documentación técnica de envío de SMS, API SMS. Además de utilizar HTTP para enviar los SMS también puede emplear web services SOAP SMS o SMS Rest Json.

El siguiente ejemplo ha sido validado con éxito y puede ser utilizado directamente tras sustituir los valores de los parámetros proporcionados por Altiria para acceder a la pasarela. Si encuentra dificultades para integrar el envío de SMS con Perl, le recomendamos estudiar a fondo la especificación técnica.

Código de ejemplo de Perl para el envío de SMS

#!/usr/bin/perl

# Copyright (c) 2018, Altiria TIC SL
# All rights reserved.
# El uso de este código de ejemplo es solamente para mostrar el uso de la pasarela de envío de SMS de Altiria
# Para un uso personalizado del código, es necesario consultar la API de especificaciones técnicas, donde también podrás encontrar
# más ejemplos de programación en otros lenguajes de programación y otros protocolos (http, REST, web services)
# https://www.altiria.com/api-envio-sms/

use strict;
use warnings;
use LWP::UserAgent;
use utf8;
use Encode qw(decode encode);

my $ua = new LWP::UserAgent();
# Timeout en segundos
$ua->timeout(60);
# Se fija la URL sobre la que enviar la petición POST
my $req = new HTTP::Request POST => "http://www.altiria.net/api/http";
$req->header('content-type'=>'application/x-www-form-urlencoded;charset=UTF-8');

# XX, YY y ZZ se corresponden con los valores de identificación del usuario en el sistema
my $data =("cmd=sendsms&domainId=XX&login=YY&passwd=ZZ&dest=52xxxxxxxx&dest=52yyyyyyyyy".
	   "&msg=Mensaje de prueba".
	   #No es posible utilizar el remitente en América pero sí en España y Europa
	   #Descomentar la línea solo si se cuenta con un remitente autorizado por Altiria
	   #"&senderId=remitente".
           "");

$data = encode('UTF8',$data);

$req->content($data);

my $resp = $ua->request($req);
if ($resp->is_success)		{	
# $resp->code = 200
  my $message = $resp->decoded_content;
  print "\nRespuesta: \n$message\n";
}else {							
  print "HTTP POST error code: ", $resp->code, "\n";
  print $resp->decoded_content;
}

Características adicionales del envío de SMS en Perl

  • Sistema avanzado de control de crédito con aviso automático por email que impide quedarse sin crédito de envío de forma inesperada.
  • Informes automáticos de envío de SMS y confirmación de entrega, permiten mantener un control periódico de los envíos de SMS en Perl.
  • Posibilidad de reenvío de SMS pendientes por falta de crédito. Si realizó un envío de SMS mediante Perl y no tenía crédito, los mensajes se quedan encolados en nuestros sistemas hasta que disponga de crédito, de forma que no necesita repetir el envío.