#!c:\perl\bin\perl 

#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 las 3 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 tablas, miramos si hay algun error(HACER)


#Si todo ha ido bien, lo decimos
print "\n Se han creado las tablas\n";


#Nos desconectamos de la BD. (HACER)


#Terminamos
exit;

