Base de datos TXT en Perl

Introducción

Las bases de datos del tipo TXT son una heramienta muy cómoda y fácil de usar, que nos brindan la posibilidad de agregarle pequeñas funcionalidades y dinámismo a nuestros sitios web, sin tener la necesidad de usar grandes motores de bases de datos, que si son necesarias para proyectos web de mayor envergadura.

Posibles usos para Bases de Datos tipo TXT:

• 1 Crear sitios web dinámicos, donde parte de la información o código HTML se almacena en estas bases de datos
• 2 Aliviar el trabajo de nuestro motor de bases de datos como MySQL si tenemos un sitio muy visitado y con muchas conecciones a la base.
• 3 Crear contadores de visitas multipágina para realizar el seguimiento del sitio web.
• 4 Crear libros de visitas en donde se almacenan los mensajes de los usuarios.
• 5 Crear Error-Logs en donde se almacenan todos los errores que van ocurriendo.
• 6 Realizar log de usuarios, con nombre y contraseñas
• etc...

Base de datos tipo TXT...¿¿Qué es esto???

Las bases de datos tipo txt es una de las maneras más simples de realizar una base de datos, razón por la cual todos los grandes motores de bases de datos permiten exportar las tablas a este formato, creando un archivo TXT por cada tabla de la base.

De manera que si teníamos en MySQL una tabla llamada clientes, de esta manera tendremos el archivo clientes.txt similar al famoso formato .dbf, pero, ¿cómo funciona? Simple: cada archivo txt equivale a cada tabla de la base de datos, cada linea del archivo equivale a cada registro de la tabla, en donde los campos vienen separados por el string "||" de manera que podemos tener algo como:

id||nombre||apellido||email
1||esteban||quintana||info@e-netsoft.com
2||uriel||lizama||uriel@baboonsoftware.com

Se ve más simple ahora que sabemos de que se trata...no???

NOTA: Algo para remarcar es que siempre voy a usar un campo id que será autoincremental.

Librería de funciones

Como siempre lo primero que haremos es una librería en donde estarán las funciones para administrar la base de datos, estas funciones son las que nos permitirán realizar la alta, baja y modificaciones de cada registro de la base de datos.

A esta librería la llamaremos txtdb_lib.pl y tendrá el siguiente código:

sub open_db {
my (@registros);
open (DATABASE, "<$_[0]") || &error('abrir','archivo');
flock (DATABASE,1)||&error('lock','file');
@registros = <DATABASE>;
close (DATABASE) || &error('cerrar','archivo');

shift (@registros);
return (@registros);
}

Continúa en la página siguiente

Usuarios que han visto este tema también han visto...

- ¿Cómo enviar emails usando Perl y Sendmail?
- Algunos trucos para programar en PERL
- Objetos en PERL 6
- XML con Perl
- Trabajar con archivos en Perl

- Versión imprimible de este documento
- Enviar por e-mail este documento