EJERCICIO:creabd.pl. |
En este ejercicio lo que hay que hacer es un script que cree las dos tablas de la base de datos, que son las siguientes:
Para crear la base de datos con las tablas descritas 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 #Campos de la tabla articulos my $campos_tabla_articulos=" id INT PRIMARY KEY, nombre VARCHAR(200) NOT NULL, precio FLOAT"; #Campos de la tabla de pedidos my $campos_tabla_pedidos=" num_factura INT PRIMARY KEY,". " id INT,". " nombre VARCHAR(200) NOT NULL,". " email VARCHAR(100) NOT NULL, ". " direccion VARCHAR(200),". " telefono VARCHAR(15)"; 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 crean las tablas my $SQL_crea_tabla_articulos="create table $tabla_articulos ($campos_tabla_articulos);"; my $SQL_crea_tabla_pedidos="create table $tabla_pedidos ($campos_tabla_pedidos);"; #Conectamos con la BD, miramos si hay algun error(HACER) #Creamos las dos tablas, miramos si hay algun error(HACER) #Si todo ha ido bien, lo decimos print "\n Se han creado 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 vimos en apartado de Sentencias en DBI.
2000 Francisco Javier García Castellano. fjgc@decsai.ugr.es |