El envío de SMS con Perl resulta sencillo utilizando la pasarela SMS de Altiria. A continuación podrás 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 quieres conocer los detalles del funcionamiento de la pasarela debes consultar la documentación técnica de envío de SMS, API SMS.
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 masivo con Perl, te recomendamos estudiar a fondo la especificación técnica o consulta nuestra página de preguntas frecuentes de integración de envío de SMS.
Código de ejemplo de Perl para el envío de SMS
#!/usr/bin/perl
# Copyright (c) 2021, 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');
# YY y ZZ se corresponden con los valores de identificación del usuario en el sistema my $data =("cmd=sendsms&login=YY&passwd=ZZ&dest=346xxxxxxx&dest=346yyyyyyyy". "&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; }
Lista de tareas detallada, checklist, para asegurarte que no se olvida nada importante en la integración de API SMS. Independiente del lenguaje de programación elegido.
Protocolos de comunicación soportados
La API SMS se puede utilizar con los siguientes protocolos de comunicación: