EJERCICIO:borrabd.pl.

En este ejercicio lo que hay que hacer es un script que borre las dos tablas de la base de datos, que son las siguientes:

Para borrar las dos tablas de la base de datos se debe realizar un script, cuyo esqueleto es el siguiente:


#!c:\perl\bin\perl.exe

#Usamos las librerias de acceso a BD
use DBI;

my $base_datos="ce";   #Nombre de las base de datos
my $tabla_articulos="articulos"; #Nombre de la tabla de articulos
my $tabla_pedidos="pedidos";   #Nombre de la tabla de pedidos

my $usuario="root"; #Usuario de la BD
my $clave="richal"; #Password de la BD
my $driver="mysql"; #Utilizamos el driver de mysql

#Creamos 2 variables con las sentencias SQL que borran las tablas
my $SQL_borra_tabla_articulos="drop table $tabla_articulos;";
my $SQL_borra_tabla_pedidos="drop table $tabla_pedidos;";


#Conectamos con la BD, miramos si hay algun error(HACER)

#Borramos las dos tabla, miramos si hay algun error(HACER)

#Si todo ha ido bien, lo decimos
print "\n Se han borrado las tablas $tabla_articulos y $tabla_pedidos\n";

#Nos desconectamos de la BD. (HACER)

#Terminamos
exit;

El esqueleto del ejemplo anterior está aquí.

Nota: Este ejemplo es muy parecido al que hemos visto en el apartado anterior, pero se diferencia en que en lugar de crear las tablas las destruimos, es decir, sólo cambian las sentencias SQL que se ejecutan.

2000 Francisco Javier García Castellano. fjgc@decsai.ugr.es