SMS Perl. Enviar SMS con Perl

SMS masivo desde 2002
enviar sms perl

Enviar sms con perl

El envío de SMS con Perl resulta sencillo utilizando la pasarela HTTP de Altiria. A continuación puedes 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.

Si quieres conocer los detalles del funcionamiento de la pasarela debes consultar la documentación técnica de envío de SMS, API SMS. Además de utilizar HTTP para enviar los SMS también puedes emplear web services.

Consulta nuestras tarifas de envío de SMS y pídenos más información. Te enviaremos los datos para que puedas probar el servicio gratuitamente e integrarlo en tu código Perl.

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

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

#!/usr/bin/perl
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);
# Como ejemplo la petición se envía a www.altiria.net/sustituirPOSTsms
# Se debe reemplazar la cadena '/sustituirPOSTsms' por la parte correspondiente
# de la URL suministrada por Altiria al dar de alta el servicio
# o solicitar una cuenta gratuita de prueba
my $req = new HTTP::Request POST => "http://www.altiria.net/sustituirPOSTsms";
$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
# que Altiria proporciona al solicitar una cuenta gratuita de prueba
# Se usa un remitente que debe ser autorizado por Altiria. No disponible en todos los países.
# Omitir el parametro si no se cuenta con ninguno.
my $data =("cmd=sendsms&domainId=XX&login=YY&passwd=ZZ&dest=346xxxxxxx&dest=346yyyyyyyy".
	   "&msg=Mensaje de prueba&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

  • Remitente personalizado: Personalización en el envío de SMS con Perl del remitente de origen por una cadena de texto, por ejemplo, el nombre de su empresa.(*)
  • Confirmación de entrega: Conozca la fecha y hora en la que se ha recibido el SMS enviado o las causas por las que no se ha recibido.
  • 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.

(*) La disponibilidad de la confirmación de entrega al usuario y del remitente personalizado depende de cada país, consúltenos para su país de interés.