Cómo enviar SMS desde Perl
El código de ejemplo a continuación demostrará cómo puedes usar solicitudes HTTP para enviar mensajes SMS desde Perl a través de un SMS Gateway. El programa Perl primero configura todas las variables importantes que se utilizarán para enviar el mensaje. Luego crea la cadena para enviar el mensaje y, finalmente, inicia la solicitud HTTP. El mensaje de respuesta también será impreso por el programa.
¿Qué es una API SMS de Perl?
La API SMS de 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 al SMS Gateway.
Requisitos previos
Enviar SMS desde Perl
- Abre el Bloc de notas
- Crea un nuevo archivo
- Copia y pega el código de ejemplo de esta página
- Guarda el archivo como HttpApiTester.pl
- Abre el Símbolo del sistema
- Navega hasta la carpeta donde guardaste el archivo Perl
- Escribe 'perl HttpApitester.pl' en el Símbolo del sistema
- Presiona Enter para ejecutar el archivo Perl
Ejemplo de código fuente SMS en Perl
Este ejemplo de código fuente en Perl a continuación es de uso gratuito, puedes implementarlo simplemente en tu proyecto, o puedes modificar el código fuente para usarlo en otros proyectos o aplicaciones. Si solo quieres ejecutar y probar este ejemplo, todo lo que tienes que hacer es seguir las instrucciones anteriores o ver el video tutorial que demuestra la forma de crear un archivo Perl para el código fuente y ejecutarlo desde el Símbolo del sistema.
#!/usr/bin/perl
use strict;
use warnings;
use Encode;
require HTTP::Request;
require LWP::UserAgent;
sub main
{
my $username = "john";
my $password = "Xc3ffs";
my $messagetype = "SMS:TEXT";
my $httpUrl = "https://127.0.0.1:9508/";
my $recipient = Encode::encode("utf8", "+36201324567");
my $messagedata = Encode::encode("utf8", "TestMessage");
my $sendString = $httpUrl."api?action=sendmessage"."&username="
.$username."&password="
.$password."&recipient=".$recipient."&messagetype="
.$messagetype."&messagedata=".$messagedata;
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";
print $response->content;
}
# Call main.
main();
Paso 1 - Abre una aplicación de editor de texto
Para poder ejecutar el código de ejemplo anterior, primero necesitas crear un archivo Perl para ello. Para realizar esta operación, solo necesitas tener un editor de texto. Puedes descargar un editor de texto personalizado, pero la aplicación Bloc de notas predeterminada instalada en Windows también puede hacer el trabajo. Entonces, como muestra la Figura 1, simplemente abre la aplicación Bloc de notas desde tu escritorio.
Paso 2 - Copia el código fuente
El siguiente paso es obtener el código fuente. Esta es una tarea fácil, ya que el código se puede encontrar en esta página, por lo que solo necesitas copiarlo. Entonces, como puedes ver en la Figura 2, simplemente ve a la sección del código de ejemplo en esta página, marca todo el código fuente y presiona Ctrl+C en tu teclado para copiar el código fuente al portapapeles.
Paso 3 - Pega el código en tu archivo de texto
A continuación, necesitas colocar el código fuente copiado en tu archivo de texto vacío. Para hacer eso, solo necesitas navegar al archivo de texto y presionar Ctrl+V en tu teclado. Al realizar esta acción, el código fuente se colocará en tu archivo de texto como lo demuestra la Figura 3.
Paso 4 - Guarda el texto como un archivo Perl
Para crear el archivo Perl, solo necesitas guardar el archivo de texto con la extensión de los archivos Perl. Esta extensión es .pl. Entonces, selecciona la opción 'Guardar como' en el Bloc de notas, y como puedes ver en la Figura 4, después de darle un nombre al archivo, agrega la extensión '.pl' y haz clic en 'Guardar'. La operación acaba de crear el archivo Perl que necesitas para ejecutar el ejemplo de SMS en Perl.
Paso 5 - Abre el Símbolo del sistema
El último paso principal de la guía es ejecutar el archivo Perl que creaste anteriormente. En este caso, vas a ejecutar el ejemplo usando el Símbolo del sistema. Puedes abrir fácilmente el Símbolo del sistema abriendo el Explorador de archivos y, como en la Figura 5, simplemente escribe 'cmd' en la barra de direcciones y, finalmente, presiona Enter. Si navegas hasta la carpeta donde guardaste el archivo Perl en el Explorador de archivos, el Símbolo del sistema usará esta ubicación como predeterminada, por lo que puedes ejecutar el archivo Perl de inmediato.
Paso 6 - Ejecuta el archivo Perl
Lo último que necesitas hacer es iniciar el comando que ejecuta el archivo Perl. Este es un comando simple; solo necesitas escribir 'perl *nombre del archivo*.pl' en el Símbolo del sistema como muestra la Figura 6. Después de presionar Enter, el archivo Perl ejecuta los comandos internos y envía el mensaje de prueba. La solicitud HTTP y la respuesta del SMS Gateway se imprimirán en el Símbolo del sistema.
Paso 7 - Verifica el resultado del envío en el registro de Ozeki
Ozeki 10 SMS Gateway garantiza que puedas verificar qué mensajes envió tu aplicación, ya que el servicio HTTP API registra cada evento que ocurre mientras está habilitado. Entonces, si abres el SMS Gateway y seleccionas los detalles del servicio HTTP API, podrás ver los eventos. Como puedes ver en la Figura 7, el servicio registró un evento cuando el programa Perl envió la solicitud HTTP al servicio.
Los eventos que ocurrieron durante el envío del mensaje también pueden verificarse mediante los eventos. Para eso, abre la conexión del Usuario HTTP API, que debiste configurar antes. La Figura 8 demuestra cómo la conexión maneja la solicitud HTTP y envía el mensaje al destinatario que especificaste en tu programa de ejemplo SMS en Perl.
Resumen
En este artículo, te proporcionamos información sobre cómo enviar mensajes SMS usando Perl. También incluimos un código de ejemplo que puedes usar para comenzar el proceso de implementación. Configurar una solución que pueda usar el lenguaje Perl para enviar SMS facilitará la implementación de la solución de envío de SMS en tu sistema de comunicación.
Si deseas implementar más lenguajes de programación en tu sistema de comunicación, no dudes en visitar los artículos sobre otros lenguajes de programación compatibles con el Ozeki SMS Gateway, como: Java.
¡Ahora lo siguiente que debes hacer es descargar Ozeki SMS Gateway y configurar esta solución de inmediato! Todo está listo para que funcione en menos de 10 minutos.
More information