Foro - Perl en Español

por **caribesoft** » 2006-12-20 01:08 @089

Hola Amigos Perlianos :

Necesito diseñar un script en Perl para que cuando se ejecute cree las tablas de una base de datos de MySql.

Normalmente esto se puede hacer creando una sentencia SQL, como esta :

Código: Seleccionar todo: create table clubes ( recid int(10) not null auto_increment, distrito varchar(10), club varchar(60), primary key (recid)) type=MyISAM comment="";

por cada tabla que desee crear.

Mi pregunta es cómo sería el código dentro de un Perl Script.

De antemano gracias por los tips,

Caribesoft

#!/usr/bin/perl

use strict;
use DBI();

# Connect to the database.
my$dbh= DBI->connect("DBI:mysql:database=test;host=localhost",
"joe","joe's password",
{'RaiseError'=> 1});

# Drop table 'foo'. This may fail, if 'foo' doesn't exist.
# Thus we put an eval around it.
eval{$dbh->do("DROP TABLE foo")};
print"Dropping foo failed: $@\n"if$@;

# Create a new table 'foo'. This must not fail, thus we don't
# catch errors.
$dbh->do("CREATE TABLE foo (id INTEGER, name VARCHAR(20))");

# INSERT some data into 'foo'. We are using $dbh->quote() for
# quoting the name.
$dbh->do("INSERT INTO foo VALUES (1, ".$dbh->quote("Tim").")");

# Same thing, but using placeholders
$dbh->do("INSERT INTO foo VALUES (?, ?)",undef,2,"Jochen");

# Now retrieve data from the table.
my$sth=$dbh->prepare("SELECT * FROM foo");
$sth->execute();
while(my$ref=$sth->fetchrow_hashref()){
print"Found a row: id = $ref->{'id'}, name = $ref->{'name'}\n";
}
$sth->finish();

# Disconnect from the database.
$dbh->disconnect();Coloreado en 0.005 segundos,  usando GeSHi 1.0.8.4

por **caribesoft** » 2006-12-21 09:27 @435

Muchas gracias Explorer, me sirvió de maravilla, pude crear un Perl script para que me cree las tablas, sin ninguna complicación.

Saludos,
Caribesoft

Foro - Perl en Español

Script para crear base de datos y tablas MySql

Script para crear base de datos y tablas MySql

Publicidad

Me sirvio de maravilla

¿Quién está conectado?