Cómo eliminar un SMS en Perl

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

Código Perl para recibir SMS desde un móvil

El ejemplo de código Perl para SMS a continuación demuestra cómo puedes recibir SMS usando la API HTTP REST de SMS de Ozeki SMS Gateway con la biblioteca Perl Ozeki.Libs.Rest. Esta biblioteca se te proporciona gratuitamente y puedes usarla y modificarla en cualquiera de tus proyectos.

DeleteSms.pl

use Ozeki::Libs::Rest::Configuration;
use Ozeki::Libs::Rest::MessageApi;
use Ozeki::Libs::Rest::Message;
use Ozeki::Libs::Rest::Folder;

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();
#Debes cambiar este atributo ID para eliminar un mensaje específico
$msg->{ ID } = "19fed2a2-da46-11eb-8339-ffacbeab4160";

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

my $result = $api->Delete(Ozeki::Libs::Rest::Folder->Inbox, $msg);

print($result);
	

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 añadir la biblioteca Ozeki.Libs.Rest a tu proyecto. Después de añadir 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 eliminar los mensajes SMS en el 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 DeleteSms.pl

El código fuente explicado en este artículo puede descargarse, usarse y modificarse gratuitamente.
Descargar: DeleteSms.pl.zip (76.1Kb)

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

El archivo DeleteSms.pl.zip contiene la biblioteca Ozeki.Libs.Rest, que te proporciona todas las herramientas necesarias para enviar, recibir y eliminar mensajes SMS. También encontrarás el proyecto DeleteSms en el zip, que incluye el código de ejemplo para mostrarte cómo eliminar un SMS. Este código de ejemplo se muestra a continuación.

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

Cómo eliminar SMS usando Perl (Pasos rápidos)

Para eliminar SMS usando Perl:

  1. Descarga el archivo DeleteSms.pl.zip
  2. Extrae el archivo .zip de la carpeta de Descargas
  3. Abre el archivo DeleteSms.pl en cualquier editor de texto
  4. Inicia Ozeki SMS Gateway
  5. Selecciona http_user en la pestaña Usuarios y aplicaciones
  6. Verifica los detalles del mensaje en la Bandeja de entrada
  7. Inserta el ID del mensaje SMS en el código DeleteSms.pl
  8. Ejecuta DeleteSms.pl para eliminar SMS con Perl

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 aplicación 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 ser reemplazada 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 recibir SMS desde Perl

Para autenticar el cliente Perl de SMS, 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

Solicitud HTTP para eliminar SMS con Perl

Para eliminar 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=deletemsg HTTP/1.1
Connection: TE, close
Content-Length: 153
Content-Type: application/json; charset=utf8
Authorization: Basic aHR0cF91c2VyOnF3ZTEyMw==
Host: 192.168.0.14:9509
Te: deflate,gzip;q=0.3
User-Agent: libwww-perl/6.43

{
	"folder":"inbox",
	"message_ids":	[
		"da837770-e3bd-4970-a824-579423d9b242"
	]
}
	

Encabezado de solicitud HTTP para eliminar SMS desde Perl

Para enviar los mensajes SMS, necesitas 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==
	

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: Fri, 02 Jul 2021 16:00:35 GMT
Server: 10/10.3.123
Transfer-Encoding: chunked

{
	"http_code": 200,
	"response_code": "SUCCESS",
	"response_msg": "",
	"data": {
	  "folder": "inbox",
	  "message_ids": [
	    "da837770-e3bd-4970-a824-579423d9b242"
	  ]
	}
}
	

Cómo descargar el código (Tutorial en video)

En este video, te mostraremos cómo puedes descargar los archivos del proyecto desde esta página de tutorial. El video comenzará con la búsqueda del enlace de descarga y terminará con el código listo para usar. Aprenderás qué comandos escribir en la terminal para prepararla y ejecutar el código. El video dura solo 1:34 y es muy detallado. No tendrás problemas para seguir los pasos.

Video 1 - Cómo descargar y ejecutar la solución de ejemplo (Tutorial en video)

Ejemplo de SMS en Perl: DeleteSms.pl

El código de ejemplo a continuación es parte del DeleleSms.pl (Figura 3). Cuando ejecutes este código, eliminará un mensaje con el ID proporcionado en el código. Puedes encontrar el ID proporcionado en la variable 'ID'. Ejecuta el código y buscará el mensaje y lo eliminará. Si estás familiarizado con el lenguaje de programación Perl, siéntete libre de modificar el código.

Figura 3 - DeleteSms.pl

Usar el código (Tutorial en video)

En este video, verás el código en acción. Te mostraremos cómo ejecutar el código y verificar sus resultados. Comenzará con una terminal abierta y el código abierto, y te mostrará la bandeja de entrada vacía al final. El video dura solo 1:14 y es fácil de seguir. No tendrás problemas para seguir los pasos.

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

Resumen

En esta página, has leído sobre cómo eliminar mensajes SMS desde Perl con la API HTTP REST de SMS de Ozeki SMS Gateway. Ahora, puedes crear las condiciones para usar el repositorio Perl descargable para eliminar mensajes SMS. Esta solución puede ser un cambio radical en tu sistema de mensajería debido a las llamadas a métodos bien escritas y una clase SMS bien diseñada que te permite configurar los parámetros del SMS.

Ozeki SMS Gateway tiene mucho más para ofrecerte, así que adéntrate en otro artículo intrigante. Te recomiendo la guía Cómo descargar la última biblioteca Perl para SMS desde Github para más información.

¡Descarga Ozeki SMS Gateway y configura tu sistema ahora!

More information