#!/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


#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;

