Cómo enviar múltiples SMS desde Perl
La forma más sencilla de enviar múltiples SMS desde Perl es utilizar la API HTTP/Rest de SMS integrada en Ozeki SMS Gateway. Cuando uses esta API, enviarás mensajes SMS mediante una solicitud HTTP Post al gateway de SMS. La solicitud HTTP Post contendrá un mensaje formateado en formato JSON. El gateway de SMS enviará este SMS al teléfono del destinatario y devolverá una respuesta HTTP 200 OK a tu solicitud.
Código Perl para enviar múltiples SMS a móviles
El ejemplo de código Perl para SMS a continuación muestra cómo puedes enviar SMS usando la API HTTP Rest de Ozeki SMS Gateway con la biblioteca Perl Ozeki.Libs.Rest. Esta biblioteca se proporciona gratuitamente y puedes usarla y modificarla en cualquiera de tus proyectos.
SendMultipleSms.pl
use Ozeki::Libs::Rest::Configuration;
use Ozeki::Libs::Rest::MessageApi;
use Ozeki::Libs::Rest::Message;
my $configuration = new Ozeki::Libs::Rest::Configuration();
$configuration->{ Username } = "http_user";
$configuration->{ Password } = "qwe123";
$configuration->{ ApiUrl } = "http://127.0.0.1:9509/api";
my $msg1 = new Ozeki::Libs::Rest::Message();
$msg1->{ ToAddress } = "+36201111111";
$msg1->{ Text } = "Hola mundo 1";
my $msg2 = new Ozeki::Libs::Rest::Message();
$msg2->{ ToAddress } = "+36202222222";
$msg2->{ Text } = "Hola mundo 2";
my $msg3 = new Ozeki::Libs::Rest::Message();
$msg3->{ ToAddress } = "+36203333333";
$msg3->{ Text } = "Hola mundo 3";
my $api = new Ozeki::Libs::Rest::MessageApi($configuration);
my $result = $api->Send(( $msg1, $msg2, $msg3 ));
print($result->stringify);
Cómo usar el ejemplo de SMS en Perl:
Este ejemplo de SMS en Perl puede usarse en cualquier aplicación Perl. Para usarlo, debes agregar la biblioteca Ozeki.Libs.Rest a tu proyecto. Después de agregar la biblioteca, debes incluir la directiva "use Ozeki::Libs::Rest;" en la sección de encabezado de tu código fuente Perl. Esto te permitirá usar las clases proporcionadas por la biblioteca Ozeki.Libs.Rest. Puedes usar la clase Message para crear el SMS y la clase MessageApi para enviar los mensajes SMS al gateway de SMS. El gateway de SMS enviará tu mensaje a la red móvil ya sea mediante una conexión inalámbrica o a través de Internet.
Descargar SendMultipleSms.pl
El código fuente explicado en este artículo se puede descargar, usar y modificar gratuitamente.
Descargar: SendMultipleSms.pl.zip (76.1Kb)
¿Qué contiene el archivo SendMultipleSms.pl?
El archivo SendMultipleSms.pl contiene la biblioteca Ozeki.Libs.Rest, que te proporciona todas las herramientas necesarias para enviar y recibir mensajes SMS. También encontrarás el archivo SendMultipleSms en el zip, que contiene el código de ejemplo para mostrarte cómo enviar un SMS. Este código de ejemplo se muestra a continuación.
Cómo enviar múltiples SMS desde Perl (Pasos rápidos)
Para enviar múltiples SMS desde Perl:
- Configura Strawberry Perl
- Descarga el archivo SendMultipleSms.pl.zip
- Extrae el archivo .zip de la carpeta de Descargas
- Abre el archivo SendSms.pl en Notepad o Visual Studio Code
- Inicia Ozeki SMS Gateway
- Crea un usuario HTTP API en Ozeki
- Ejecuta el código Perl SendMultipleSms.pl en la línea de comandos
- Revisa la bandeja de Enviados en Ozeki SMS Gateway
Instalar Ozeki SMS Gateway y crear un usuario HTTP API
Para poder enviar SMS desde Perl, primero necesitas instalar Ozeki SMS Gateway. El gateway de SMS puede instalarse en la misma computadora donde desarrollas tu código Perl en Visual Studio. Después de la instalación, el siguiente paso es conectar Ozeki SMS Gateway a la red móvil. Puedes enviar un SMS de prueba desde la interfaz gráfica de Ozeki para verificar que tu conexión a la red móvil funcione. El paso final para preparar tu entorno es crear un usuario HTTP API para SMS. Crea un usuario con el nombre "http_user" y la contraseña "qwe123" para que el ejemplo funcione sin modificaciones.
Una vez configurado el entorno, puedes ejecutar tu código Perl.
URL de la API HTTP para enviar SMS desde Perl
Para enviar SMS desde Perl, tu código Perl deberá realizar una solicitud HTTP al gateway de SMS. La URL de la API se muestra a continuación. Ten en cuenta que la dirección IP (127.0.0.1) debe reemplazarse por la dirección IP de tu gateway de SMS. Si Ozeki SMS Gateway está instalado en la misma computadora donde se ejecuta la aplicación Perl de SMS, puede ser 127.0.0.1. Si está instalado en una computadora diferente, debe ser la dirección IP de esa computadora.
http://127.0.0.1:9509/api?action=rest
Autenticación HTTP para enviar SMS desde Perl
Para autenticar el cliente de SMS en Perl, necesitas enviar el nombre de usuario y la contraseña en una cadena codificada en base64 al servidor en una solicitud HTTP. El formato utilizado es: base64(nombre_de_usuario+":"+contraseña). En Perl puedes usar el siguiente código para hacer esta codificación:
my ($self, $Username, $Password) = @_;
my $Username_Password = "${Username}:${Password}";
my $Username_Password_encoded = encode_base64($Username_Password);
return "Basic ${Username_Password_encoded}";
Por ejemplo, si codificas el nombre de usuario 'http_user' y la contraseña 'qwe123', obtendrás la siguiente cadena codificada en base64: aHR0cF91c2VyOnF3ZTEyMw==. Para enviar
Encabezado de la solicitud HTTP para enviar SMS desde Perl
Para enviar los mensajes SMS, debes incluir las siguientes líneas como encabezados en la solicitud HTTP. Ten en cuenta que incluimos un encabezado de tipo de contenido y un encabezado de Autorización.
Content-Type: application/json Authorization: Basic QWxhZGRpbjpvcGVuIHNlc2FtZQ==
Solicitud HTTP para enviar SMS desde Perl
Para enviar el SMS, tu aplicación Perl enviará una solicitud HTTP similar a la que se muestra a continuación. Ten en cuenta que esta solicitud contiene una parte de encabezado HTTP y una parte de cuerpo HTTP. El cuerpo HTTP es una cadena de datos codificada en JSON. Contiene el número del destinatario y el texto del mensaje.
Respuesta HTTP recibida por el ejemplo de SMS en Perl
Una vez que el gateway de SMS reciba esta solicitud, generará una respuesta HTTP. La respuesta HTTP contendrá un código de estado para indicar si la solicitud de envío de SMS fue exitosa o no. También devolverá una estructura codificada en JSON para proporcionarte detalles útiles sobre el envío del mensaje.
HTTP/1.1 200 OK
User-Agent: OZEKI 10.3.123 (www.myozeki.com)
Content-Type: application/json; charset=utf8
Last-Modified: Fri, 02 Jul 2021 16:00:35 GMT
Server: 10/10.3.123
Transfer-Encoding: chunked
{
"http_code": 200,
"response_code": "SUCCESS",
"response_msg": "Mensajes en cola para entrega.",
"data": {
"total_count": 3,
"success_count": 3,
"failed_count": 0,
"messages": [
{
"message_id": "ab4c1e78-db41-11eb-8298-c00c4d4e2ea7",
"from_station": "%",
"to_address": "+36201111111",
"to_station": "%",
"text": "Hola mundo 1",
"create_date": "2021-07-02 14:27:45",
"valid_until": "2021-07-09 14:27:45",
"time_to_send": "2021-07-02 14:27:45",
"submit_report_requested": true,
"delivery_report_requested": true,
"view_report_requested": false,
"tags": [
{
"name": "Tipo",
"value": "SMS:TEXTO"
}
],
"status": "ÉXITO"
},
{
"message_id": "ab4c4523-db41-11eb-838d-c00c4d4e2ea7",
"from_station": "%",
"to_address": "+36202222222",
"to_station": "%",
"text": "Hola mundo 2",
"create_date": "2021-07-02 14:27:45",
"valid_until": "2021-07-09 14:27:45",
"time_to_send": "2021-07-02 14:27:45",
"submit_report_requested": true,
"delivery_report_requested": true,
"view_report_requested": false,
"tags": [
{
"name": "Tipo",
"value": "SMS:TEXTO"
}
],
"status": "ÉXITO"
},
{
"message_id": "ab4c59cd-db41-11eb-82c0-c00c4d4e2ea7",
"from_station": "%",
"to_address": "+36203333333",
"to_station": "%",
"text": "Hola mundo 3",
"create_date": "2021-07-02 14:27:45",
"valid_until": "2021-07-09 14:27:45",
"time_to_send": "2021-07-02 14:27:45",
"submit_report_requested": true,
"delivery_report_requested": true,
"view_report_requested": false,
"tags": [
{
"name": "Tipo",
"value": "SMS:TEXTO"
}
],
"status": "ÉXITO"
}
]
}
Ejemplo de SMS en Perl: SendMultipleSms.pl
En este video, verás el proceso de descarga y configuración del proyecto SendMultipleSMS.pl. Comenzará con la descarga del proyecto y terminará con la configuración completa. Aprenderás todos los pasos necesarios para tener una solución funcional. El video dura 1:44 pero muestra todos los pasos de manera detallada. Después de verlo, podrás descargar y configurar la solución por tu cuenta.
El código de ejemplo
En la Figura 3, puedes ver el código de ejemplo. Este código enviará múltiples mensajes SMS a múltiples destinatarios. Si estás familiarizado con el lenguaje de programación Perl, siéntete libre de modificar el código a tu gusto. Enviará SMS a todos los números de teléfono almacenados como variable 'ToAddress', con el texto almacenado en las variables Text.
Cómo usar el archivo del proyecto de ejemplo (Tutorial en video)
En este video, verás el proyecto de ejemplo en funcionamiento. Te mostraremos qué necesitas hacer para que el proyecto envíe múltiples mensajes SMS con una sola ejecución. El video dura solo 1:12 y contiene toda la información que necesitas para lanzar el programa. Comenzará con el proyecto abierto y terminará con todos los mensajes enviados.
Resumen
La guía anterior explicó los pasos para enviar múltiples SMS en Perl con Ozeki SMS Gateway. Si seguiste cada paso cuidadosamente, deberías poder contactar a múltiples clientes con un solo código Perl y Ozeki SMS Gateway. Con esta solución, un gran número de clientes puede recibir sus SMS al mismo tiempo. Es importante destacar que Ozeki SMS Gateway ofrece alto rendimiento, lo que significa que puede enviar hasta 1000 SMS por segundo.
Asegúrate de no terminar de leer aquí, visita la página de tutoriales de Ozeki donde encontrarás más información sobre temas similares, como programar SMS en Perl.
Lo único que queda por hacer ahora es descargar Ozeki SMS Gateway y ¡que comience el trabajo!
More information
- Enviar SMS con Perl usando la API REST HTTP (ejemplo de código)
- Enviar múltiples SMS con Perl usando la API REST HTTP (ejemplo de código)
- Programar SMS con Perl usando la API REST HTTP (ejemplo de código)
- Recibir SMS con Perl usando la API REST HTTP (ejemplo de código)
- Eliminar SMS con Perl usando la API REST HTTP (ejemplo de código)
- Cómo descargar la última biblioteca de SMS para Perl desde Github