#!/usr/bin/perl

#usamos las librerias de acceso a BD
use DBI;

my $basedatos="biblioteca"; #nombre de la base de datos
# Al tratarse de Access, los string usuario y password pueden estar vacios
my $usuario="dmeroma"; Usuario de la BD
my $clave="ign%P12";   Password de la BD

my $driver="DBD::ODBC"; #Utilizamos los driver de Access
my $tablalibros="libros"; #Nombre de la tabla

#Conectamos con la BD, si no podemos, ponemos un mensaje de error

my $dbh = DBI->connect("dbi:$driver:$basedatos,$usuario,$clave);
if( ! defined $dbh ) {
         die "No se puede conectar a la base de datos\n";
}
#Decimos que hemos conectado
print "\nSe ha conectado con la BD $basedatos del driver $driver\n";

#Realizamos la etapa de preparacion de la sentencia
my $sth = $dbh->prepare("SELECT titulo, contenido, autor FROM libros;");

#Realizamos la etapa de ejecucion de la sentencia
$sth->execute();

#Realizamos la etapa de extraccion de datos. Imprimimos tupla a tupla
while ( @tupla=$sth->fetchrow_array())
{
           print"titulo:$tupla[0] contenido: $tupla[1] autor: $tupla[2]\n";
}

#Realizamos la etapa de liberacion de recursos ocupados por la sentencia
$sth->finish();

#Nos desconectamos de la BD. Mostramos un mensaje si hay algun fallo
$dbh->disconnect();

#terminamos
exit;