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 |