Foro - Perl en Español

por **cachailoco** » 2017-06-30 02:05 @129

Estoy haciendo un script Perl que crea una base de datos y usa los datos que recupera de un texto.
Tengo problemas cuando creo las tablas con Perl: El programa crea la tabla pero no crea ninguna de sus columnas.

De ante mano, GRACIAS

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;
use warnings;
use DBI;
use CGI;
use CGI::Carp qw( fatalsToBrowser );
 
my $host = "localhost";
my $database = "p8";
 
my $user = "franco";
my $pw = "galleta1";
 
 
my $dbh = DBI->connect(         
    "DBI:mysql:dbname=$database;host=$host",
    $user,                         
    $pw,                         
    { RaiseError => 1 },        
) or die $DBI::errstr;
$dbh->do("USE prueba");
 
my $dm = qq(DROP TABLE IF EXISTS microarreglo);
my $rv = $dbh->do($dm);
 
$dbh->do("CREATE TABLE microarreglo (genes CHAR,valores FLOAT,title CHAR,sample CHAR,KEY(genes))");
 
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Bienvenido a los foros de Perl en Español, cachailoco.

Pues yo no veo el problema... las sentencias son correctas.

¿Aparece algo en el log del MySQL? Ahí dirá por qué no crea las columnas.

Podría ser que le falta algún permiso al usuario... pero no sé exactamente cuál puede ser.

Yo... por seguridad... agregaría una línea

$dbh->disconnect;

al final del programa, para asegurarme que la base de datos se cierra de forma correcta.

Y... quizás ver qué es lo que devuelve la llamada a do() de la línea 26. Y si es un 'undef', ver el contenido de la variable $dbh->errstr;

Pero, lo dicho: la solución está en el registro de actividad de la base de datos.

por **cachailoco** » 2017-07-01 04:12 @216

Tenía un problema utilizando la función quote() varias líneas más abajo...

Gracias por su tiempo.

Saludos.

cachailoco

Foro - Perl en Español

Crear tablas MySQL usando Perl

Crear tablas MySQL usando Perl

Publicidad

Re: Crear tablas MySQL usando Perl

Re: Crear tablas MySQL usando Perl

¿Quién está conectado?