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