#!/usr/bin/perl

######################################################################
#
#Francisco javier García Castellano
#fjgc@decsai.ugr.es
#
######################################################################



#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
my $tabla="articulos"; #Nombre de la tabla de ejemplo


#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 conectado
print "\nSe ha conectado con la BD $base_datos del driver $driver\n";


 #Realizamos la etapa de preparaci›n de la sentencia
 my $sth = $dbh->prepare("SELECT id,nombre FROM articulos;");

 #Realizamos la etapa de ejecuci›n de la sentencia
 $sth->execute();

 #Realizamos la etapa de extracci›n de datos. Imprimimos tupla a tupla.
 while ( @tupla=$sth->fetchrow_array())
 {
        print "C›digo:$tupla[0]    Nombre: $tupla[1]\n";
 }

 #Realizamos la etapa de liberaci›n de recursos ocupados por la sentencia
 $sth->finish();




#Nos desconectamos de la BD. Mostramos un mensaje si hay
#algun fallo
$dbh->disconnect || warn "\nFallo al desconectar.\nError: $DBI::errstr\n";

#Terminamos
exit;

