Recibir SMS en Perl
En esta página, podrás aprender cómo puedes usar tu aplicación Perl para recibir mensajes SMS. Este ejemplo de código fuente en Perl es capaz de recopilar los mensajes entrantes desde la Pasarela SMS y utilizarlos en la aplicación. Realiza esta operación mediante solicitudes HTTP. Esta guía muestra lo fácil que puedes crear una aplicación Perl y ejecutarla en tu computadora. Así que, comencemos ahora mismo.
¿Qué es una API SMS en Perl?
La API SMS en Perl garantiza la capacidad de enviar mensajes SMS desde un programa escrito en Perl. Utiliza solicitudes HTTP y comunicación cifrada SSL para enviar la solicitud de envío de SMS a la Pasarela SMS.
Requisitos previos
Recibir SMS en Perl
- Abre el Bloc de notas
- Copia y pega el código de ejemplo de esta página
- Guarda el archivo como ReceiveSMS.pl
- Abre la Pasarela SMS Ozeki y selecciona la conexión HTTP Server
- Abre el formulario HTML de la conexión HTTP Server
- Envía algunos mensajes de prueba
- Abre el Símbolo del sistema
- Escribe 'perl ReceiveSMS.pl' en el Símbolo del sistema y presiona Enter
El código de ejemplo a continuación es de uso libre en tu propia solución o aplicación y puedes modificarlo si lo deseas. El código de ejemplo puede recopilar los mensajes de la Pasarela SMS y utilizarlos en la aplicación Perl. Si deseas probar el ejemplo, solo sigue las instrucciones paso a paso a continuación o revisa el video que muestra claramente todos los pasos que necesitas realizar para ejecutar el ejemplo de SMS en Perl.
#!/usr/bin/perl
use strict;
use warnings;
use XML::Simple;
use Data::Dumper;
require HTTP::Request;
require LWP::UserAgent;
sub main
{
my $username = "john";
my $password = "Xc3ffs";
my $httpUrl = "https://127.0.0.1:9508/";
my $folder = "inbox";
my $limit = "3";
my $sendString = $httpUrl."api?action=receivemessage&username="
.$username."&password=".$password."&folder="
.$folder."&limit=".$limit
."&messagedata=&afterdownload=delete";
print "Enviando solicitud html: ".$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 "Respuesta HTTP recibida :\n";
DisplayMessages($response->content)
}
main();
sub DisplayMessages {
my $data = XMLin(@_);
my $sender = "";
my $text = "";
if($data->{data}->{message} eq 'No more messages.') {
print "¡La bandeja de entrada está vacía!";
return;
}
if (ref($data->{data}->{message}) eq 'ARRAY') {
foreach my $value (@{ $data->{data}->{message} }) {
$sender = $value->{originator};
$text = $value->{messagedata};
DisplayMessage($sender,$text);
}
}
else {
$sender = $data->{data}->{message}->{originator};
$text = $data->{data}->{message}->{messagedata};
DisplayMessage($sender,$text);
}
}
sub DisplayMessage {
print $_[0].": ".$_[1]."\n";
}
Paso 1 - Abrir el Bloc de notas
Lo primero que debes hacer para completar esta guía es crear el archivo Perl que debes ejecutar para ver cómo recibe los mensajes SMS de la Pasarela SMS. Así que, en este punto, necesitas abrir la aplicación Bloc de notas en tu computadora para poder crear el archivo Perl. Para ello, como en la Figura 1, haz clic en su icono en el escritorio.
Paso 2 - Copiar el código fuente Perl de esta página
A continuación, necesitas obtener el código fuente Perl de esta página para usarlo en tu computadora. Así que, desplázate hasta la sección del código de ejemplo y marca todo el código fuente. Luego, como puedes ver en la Figura 2, debes copiarlo en tu portapapeles. Esto se puede hacer presionando Ctrl+C en tu teclado.
Paso 3 - Pegar el código en el archivo de texto
Después de copiar el código fuente Perl de esta página, debes colocarlo en un documento de texto. Para hacer esto, ve a la aplicación Bloc de notas que abriste antes y, como puedes ver en la Figura 3, simplemente presiona Ctrl+V en tu teclado para pegar todo el código fuente en el documento de texto.
Paso 4 - Guardar el texto como un archivo Perl
El código fuente ahora está en el documento de texto, pero aún no tiene el formato de archivo correcto. Pero esto no es un gran problema, puedes solucionarlo fácilmente con el Bloc de notas. Solo selecciona la opción 'Guardar como' y aquí, después de darle un nombre al archivo, usa la extensión de archivo '.pl' como lo demuestra la Figura 4. Si haces clic en 'Guardar', el archivo se guardará en el formato de archivo Perl correcto que necesitas para ejecutarlo más tarde.
Paso 5 - Enviar algunos mensajes de prueba
Después de configurar el archivo Perl, necesitas algunos mensajes en tu carpeta de entrada. Para completar la prueba rápidamente, puedes simular mensajes entrantes con la conexión HTTP Server en la Pasarela SMS. Si aún no has configurado esta conexión, aquí puedes ver cómo configurar una conexión HTTP Server. Así que, abre la Pasarela SMS y selecciona la conexión HTTP Server. En el menú de la conexión, abre el formulario HTML (Figura 5). Aquí, puedes escribir algunos mensajes en la Pasarela SMS estableciendo el destinatario como 'Ozeki'.
Paso 6 - Abrir el Símbolo del sistema
Para ejecutar el código Perl, necesitas el Símbolo del sistema, ya que proporciona una forma sencilla de ejecutar el código. Así que, primero abre el Explorador de archivos y navega hasta la carpeta donde guardaste tu archivo Perl. Aquí, como puedes ver en la Figura 6, escribe 'cmd' en el Explorador de archivos. Si presionas Enter, el Símbolo del sistema se abrirá en una nueva ventana.
Paso 7 - Ejecutar el ejemplo de SMS en Perl
Lo último que debes hacer es ejecutar el programa Perl. Para ello, solo necesitas ejecutar un comando simple en el Símbolo del sistema. El comando es 'perl *nombrearchivo*.pl' como lo muestra la Figura 7. Luego, simplemente presiona Enter para ejecutar el programa de ejemplo. El programa imprime la solicitud HTTP que se envió a la Pasarela SMS y también imprime el mensaje de respuesta de la Pasarela SMS. Esto contiene todos los mensajes que recibió la Pasarela SMS.
Reflexiones finales
En el artículo anterior, has aprendido sobre cómo recibir SMS usando Perl. Usar un script en Perl para recopilar mensajes entrantes significa que puedes usar esos mensajes en un proyecto PHP. Puedes comenzar a automatizar la recepción y el envío de SMS con el poder de Perl y la Pasarela SMS Ozeki. Gracias a la Pasarela SMS Ozeki, no tendrás problemas de rendimiento debido a la capacidad de 1000 SMS por segundo del software de pasarela. Esto mejorará enormemente la comunicación dentro de tu organización o con tus clientes.
Visita nuestra página web si deseas aprender sobre todos los lenguajes de programación que la Pasarela SMS Ozeki puede manejar. Puedes acceder al artículo sobre cómo gestionar SMS con Python.
Si deseas trabajar con un software de Pasarela SMS de alto rendimiento, ¡descarga la Pasarela SMS Ozeki!