CONECTAR Y DESCONECTAR CON LA BD

Para trabajar con DBI lo primero (antes que nada) que hay que hacer es leer el módulo DBI:
   use DBI;

Después y para cualquier tarea que se desee realizar hay que abrir una conexión con la base de datos, la información que se utiliza para establecer la conexión es:

• Nombre de la fuente de datos: Esto es una cadena que contiene los siguientes elementos, separados por dos puntos:
• dbi
• Nombre del driver: Nombre del driver, por ejemplo, odbc, mysql, oracle, etc.
• Nombre de la base de datos: Nombre de la base de datos con la que estamos trabajando.
• Usuario: Usuario que se va a conectar a la base de datos. Dentro de la base de datos hay distintos usuarios, cada uno, con sus propias tablas y con una serie de privilegios asociados.
• Password: Clave de seguridad del usuario.
• Host(OPCIONAL): Aqui indicamos la máquina donde está la base de datos.
• Puerto(OPCIONAL): Aquí indicamos el puerto que se va a usar para conectarse a la base de datos.

Una vez que se ha terminado de trabajar con la base de datos se debe cerrar la conexión con la base de datos, no es estrictamente necesario, pero si aconsejable, ya que algunas bases de datos pueden no terminar sus transacciones correctamente.

Veamos un ejemplo de un script en Perl que conecta y desconecta a un sistema de bases de datos MySQL, cuya base de datos se llama ce (de comercio electrónico), el nombre del usuario es root y el password richal.

#!/usr/bin/perl
#Usamos las librerias de acceso a BD
use DBI;

my $base_datos="ce"; #Nombre de las base de datos
my $usuario="root"; #Usuario de la BD
my $clave="richal"; #Password de la BD
my $driver="mysql"; #Utilizamos el driver de mysql


#Conectamos con la BD, si no podemos, ponemos un mensaje de error
my $dbh = DBI->connect("dbi:$driver:$base_datos",$usuario,$clave) || die "\nError al abrir la base datos: $DBI::errstr\n";


#Decimos que hemos creado la tabla
print "\nSe ha conectado con la BD $base_datos del driver $driver\n";

#Nos desconectamos de la BD. Mostramos un mensaje si hay
#algun fallo
$dbh->disconnect || warn "\nFallo al desconectar.\nError: $DBI::errstr\n";

#Terminamos
exit;

El ejemplo anterior está aquí.