Cómo enviar SMS desde Perl

La forma más sencilla de enviar SMS desde Perl es utilizar la API HTTP/Rest de SMS integrada de 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ómo enviar sms desde perl
Figura 1 - Cómo enviar SMS desde Perl

Código Perl para enviar SMS a un móvil

El ejemplo de código Perl para SMS a continuación demuestra cómo puedes enviar SMS usando la API HTTP Rest de SMS 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.

SendSms.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 $msg = new Ozeki::Libs::Rest::Message();
$msg->{ ToAddress } = "+36201111111";
$msg->{ Text } = "¡Hola mundo!";

my $api = new Ozeki::Libs::Rest::MessageApi($configuration);

my $result = $api->Send($msg);

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 using 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. Puedes usar la clase MessageApi para enviar el SMS al gateway de SMS. El gateway de SMS reenviará tu mensaje a la red móvil ya sea mediante una conexión inalámbrica o a través de Internet.

Descargar SendSms.pl

El código fuente explicado en este artículo se puede descargar, usar y modificar gratuitamente.
Descargar: SendSms.pl.zip (76.0Kb)

¿Qué contiene el archivo SendSms.pl.zip?

El archivo SendSms.pl.zip 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 SendSms.pl 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.

Figura 2 - Qué hay dentro de SendSms.pl.zip

Dependencias

Para usar la biblioteca Ozeki::Libs::Rest, debes instalar algunos módulos:

Ubuntu

$ sudo apt-get install libdatetime-perl
$ cpan
$ install JSON
$ install UUID::Generator::PurePerl
$ install UUID::Object
	

Código 1 - Cómo instalar las dependencias en Linux

Cómo instalar dependencias de Perl en Linux (Tutorial en video)

En este video, te mostramos cómo instalar las dependencias de Perl en el sistema operativo Linux. El video comenzará abriendo una terminal y terminará con las dependencias instaladas. El video solo dura 1:10 pero explica el proceso de manera detallada. Si ves todo el video, no tendrás problemas para recrear los pasos.

Video 1 - Cómo instalar dependencias de Perl en Linux (Tutorial en video)

Windows

cpanm DateTime
cpanm UUID::Generator::PurePerl
cpanm UUID::Object
cpanm JSON
	

Código 2 - Cómo instalar las dependencias en Windows

Cómo instalar dependencias de Perl en Windows (Tutorial en video)

En este video, te mostramos cómo instalar las dependencias de Perl en el sistema operativo Windows. El video comenzará abriendo un símbolo del sistema y terminará con todas las dependencias instaladas. El video solo dura 46 segundos, pero explica el proceso de manera detallada. El proceso es fácil de realizar, así que con la ayuda de este video, no tendrás problemas para seguir los pasos.

Video 2 - Cómo instalar dependencias de Perl en Windows (Tutorial en video)

Cómo enviar SMS desde Perl (Guía rápida)

Para enviar SMS desde Perl:

  1. Instala un usuario de API HTTP
  2. Activa "Registrar eventos de comunicación" en la pestaña Avanzado
  3. Descarga y extrae el archivo SendSms.pl.zip
  4. Abre el archivo sendsms.pl en cualquier editor de texto
  5. Inicia la aplicación Ozeki SMS Gateway
  6. Ejecuta el código Perl SendSms.pl en el símbolo del sistema
  7. Revisa los registros para ver si el SMS se envió

Instala Ozeki SMS Gateway y crea un usuario de API HTTP

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 Windows Notepad o Visual Studio Code. Después de la instalación, el siguiente paso es conectar Ozeki SMS Gateway a la red móvil. Puedes crear un usuario de API HTTP para SMS. Crea un usuario con el nombre de usuario "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 tendrá que 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 realizar 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 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.

POST /api?action=sendmsg HTTP/1.1
Connection: TE, close
Content-Length: 341
Content-Type: application/json; charset=utf8
Authorization: Basic aHR0cF91c2VyOnF3ZTEyMw==
Host: 127.0.0.1:9509
Te: deflate,gzip;q=0.3
User-Agent: libwww-perl/6.52

{
	"messages": [
		{
			"message_id": "fa32293f-db00-11eb-804d-ffacbeab4160",
			"to_address": "+36201111111",
			"text": "¡Hola mundo!",
			"create_date": "2021-07-02T06:44:40",
			"valid_until": "2021-07-09T06:44:40",
			"time_to_send": "2021-07-02T06:44:40",
			"submit_report_requested": true,
			"delivery_report_requested": true,
			"view_report_requested": true,
			"tags": []
		}
	]
}
	

Respuesta HTTP recibida por el ejemplo de SMS en Perl

Una vez que el gateway de SMS recibe 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: Tue, 29 Jun 2021 11:48:38 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": 1,
	  "success_count": 1,
	  "failed_count": 0,
	  "messages": [
	    {
	      "message_id": "fa32293f-db00-11eb-804d-ffacbeab4160",
	      "from_station": "%",
	      "to_address": "+36201111111",
	      "to_station": "%",
	      "text": "¡Hola mundo!",
	      "create_date": "2021-07-02 06:44:40",
	      "valid_until": "2021-07-09 06:44:40",
	      "time_to_send": "2021-07-02 06:44:40",
	      "submit_report_requested": true,
	      "delivery_report_requested": true,
	      "view_report_requested": false,
	      "tags": [
	        {
	          "name": "Type",
	          "value": "SMS:TEXT"
	        }
	      ],
	      "status": "SUCCESS"
	    }
	  ]
	}
}
	

Conecta tu gateway de SMS a la red móvil y crea una cuenta de usuario de API HTTP

Asumimos que ya has instalado Ozeki SMS Gateway, y que has conectado a la red móvil. Para poder enviar SMS a un teléfono móvil desde Perl, necesitas configurar una cuenta de usuario de API HTTP en Ozeki SMS Gateway. En este video, te explicaremos el proceso de creación de una nueva cuenta de usuario de API HTTP. El video comenzará abriendo la aplicación Ozeki SMS Gateway y te guiará hasta tener el usuario de API HTTP creado. En el proceso, aprenderás cómo configurar un nuevo usuario y cómo activar la opción de registro. El video solo dura 30 segundos y explica el proceso de manera muy detallada. No tendrás problemas para entender los pasos.

Video 3 - Cuál es el proceso de creación de una nueva cuenta de usuario de API HTTP (Tutorial en video)

Cómo enviar SMS desde Perl usando la API de SMS en Perl (Tutorial en video)

Este video te muestra cómo descargar el archivo SendSms.pl.zip desde esta página y cómo abrir el archivo SendSms.pl en el Bloc de notas. Si ves el video, notarás que el contenido del archivo SendSms.pl.zip se coloca en el escritorio de Windows. También verás que abrimos el archivo SendSms.pl con el Bloc de notas de Windows.

Video 4 - Cómo descargar y configurar la solución anterior

Ejemplo de SMS en Perl: SendSms.pl

En la Figura 1, puedes ver el código fuente del proyecto de ejemplo. Si estás familiarizado con el lenguaje de programación Perl, siéntete libre de modificar el código a tu gusto. Este código enviará un SMS al número de teléfono almacenado en la variable toAddress, con el texto almacenado en la variable Text.

Figura 3 - Archivo SendSms.pl

Cómo verificar que el SMS ha sido aceptado por el usuario HTTP

Después de enviar el SMS, es una buena idea verificar tu gateway de SMS para ver qué ha recibido. Puedes revisar el registro abriendo los detalles del usuario HTTP desde la consola de administración de Ozeki SMS Gateway. El siguiente video te muestra qué buscar.

Video 5 - Cómo enviar SMS con el código Perl anterior (Tutorial en video)

Cómo verificar que el SMS ha sido enviado a la red móvil

El paso final para verificar el procedimiento es revisar los registros de la conexión a la red móvil. Es posible que debas activar el registro en la configuración de la conexión antes de enviar el mensaje para ver los registros. Si el registro está activado, verás el número de teléfono y el texto del mensaje que has enviado.

Video 6 - Cómo verificar si la solicitud fue aceptada por el cliente SMPP (Tutorial en video)

Cómo se ve recibir un SMS en un teléfono Android (Tutorial en video)

En este video, verás cómo se ve recibir un mensaje SMS en un dispositivo Android. Comenzará con una página de inicio normal de Android. Verás la notificación aparecer y luego la aplicación de Mensajes abierta con el SMS visible en ella. El video solo dura 18 segundos, pero muestra todo el proceso.

Video 7 - Cómo se ve recibir un mensaje SMS en un dispositivo Android (Tutorial en video)

Conclusión

Esta guía tenía como objetivo mostrar cómo enviar SMS en Perl con la ayuda de Ozeki SMS Gateway. Si todo se leyó cuidadosamente, enviar mensajes a tus clientes en Perl con Ozeki SMS Gateway no debería causar ningún problema. Es importante destacar que Ozeki SMS Gateway te permite registrar mensajes SMS en una base de datos y ofrece varias capacidades de informes para proporcionar más información sobre la conexión SMS.

Continúa leyendo en la página de tutoriales de Ozeki, donde encontrarás más información sobre temas como programación de SMS en Perl.

Lo único que queda por hacer ahora es descargar Ozeki SMS Gateway y ¡empezar a trabajar!

More information