Ver Tema

shalo · 2011-01-26 16:10 @715

Buenas tardes,

No he podido encontrar información sobre cómo importar un archivo .csv a una base de datos MySQL a través de algún programilla en Perl.

Logro hacer la conexión a la base de datos pero no logro importar el archivo .csv .

El archivo .csv no posee encabezado (titulo de columna); solo son datos delimitados por ",". Si lo importo de forma manual a MySQL no ocurre problemas.

(El archivo se puede modificar sin problemas para una posible solución)

Syntax: [ Download ] [ Hide ]

Using text Syntax Highlighting

xxx,"yyyy","xxxx","y"

yyyy,"xxx","yyyy","xx"

Espero me puedan dar una ayuda.

¡Saludos!

explorer · 2011-01-26 18:15 @802

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

Sería interesante ver los intentos que has hecho.

En CPAN hay módulos para leer ficheros CSV y pasarlos a varios formatos. Acabo de hacer una búsqueda y me sale, por ejemplo, el Text::CSV::Slurp, que lee un fichero y lo pasa a un array de hashes, con lo que luego es relativamente fácil llevarlo a MySQL.

De todas maneras, en Duck Duck Go tienes unos enlaces a esa cuestión.

Comentan la forma de crear la tabla a partir de la información de la primera línea, y luego lanzar una sentencia como esta al MySQL, para que se encargue él de la importación de los datos:

LOAD DATA INFILE 'data.csv' FIELDS TERMINATED BY ',' INTO TABLE MYTABLE;

shalo · 2011-01-27 09:14 @426

Gracias por la bienvenida, explorer

En realidad estoy empezando con esto de Perl y con esto estoy intentando automatizar algunos procesos para mejorar algunas cosas de a poco.

He intentado con algunas líneas.

Cod.1

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

use DBI;
 
#Datos de la conexión 
 $db="database";
 $host="localhost";
 $port="3306";
 $userid="root";
 $passwd="";
 $connectionInfo="DBI:mysql:database=$db;$host:$port";
 $dbh="";
 $mysql="";
 
# Realizamos la conexión a la base de datos 
$dbh = DBI->connect($connectionInfo,$userid,$passwd);
 
$mysql->query(qq{LOAD DATA LOCAL INFILE 'C:/archivo.csv' INTO TABLE tabla FIELDS TERMINATED BY ',' ENCLOSED BY '"' LINES TERMINATED BY '\n'});
if ($mysql->is_error) {
    my $DBError = $mysql->get_error_message;
    print "MySQL Error : $DBError    \n";
}
$mysql->close;
 

error: can't call method "query" without a package or object reference at test.pl ñine 18

Cod.2.-

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

use strict;
 
   use DBI;
#Datos de la conexión 
my $db="database";
my $host="localhost";
my $port="3306";
my $userid="root";
my $passwd="";
my $connectionInfo="DBI:mysql:database=$db;$host:$port";
my $dbh="";
my $mysql="";
 
 
# Realizamos la conexión a la base de datos 
$dbh = DBI->connect($connectionInfo,$userid,$passwd);
 
my $myquery = "LOAD DATA LOCAL INFILE 'C:archivo.csv' INTO TABLE tabla FIELDS TERMINATED BY ',' ENCLOSED BY '"' LINES TERMINATED BY '\n'";
 
# EXECUTE THE QUERY FUNCTION
$execute = $dbh->query($myquery);
 

error: syntac error at line 18, near "' LiNES TERMINATED BY '"
Bad name after n' at test2.pl line 18

En realidad no sé si voy bien encaminado, pero estoy haciendo el intento.

Saludos y gracias de antemano

explorer · 2011-01-27 15:54 @704

Del primer código, te dice que $mysql no contiene ningún objeto, y viendo el código, efectivamente, $mysql no contiene nada. Es $dbi el que contiene el objeto de la conexión a la base de datos.

Y del segundo código, el mensaje de error se refiere a que hay un lío con las comillas.

Prueba así:

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

my $myquery = q(LOAD DATA LOCAL INFILE 'C:/archivo.csv' INTO TABLE tabla FIELDS TERMINATED BY ',' ENCLOSED BY '"' LINES TERMINATED BY '\n');

El operador q() hace lo mismo que las comillas simples, pero sin mezclarse con ellas.

shalo · 2011-03-22 09:39 @443

Gracias, explorer,

por si alguien le sirve, al final lo hice de la siguiente forma y resulto todo bien.

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

#!/usr/bin/perl -w
 
use DBI;
 
$dbh = DBI->connect('DBI:mysql:database;host=localhost','root','')
 
or die "Connection Error: $DBI::errstr\n";
 
$sql = q(LOAD DATA LOCAL INFILE '/home/xxx/yyy/data/archivo.csv' INTO TABLE tabla FIELDS TERMINATED BY ',' ENCLOSED BY '"' LINES TERMINATED BY '\n';);
 
$sth = $dbh->prepare($sql);
 
$sth->execute
 
or die "SQL Error: $DBI::errstr\n";
 
$sth->finish;
$dbh->disconnect;

¡Saludos!

pvaldes · 2011-03-22 12:17 @554

Otra opción habría sido escapar las comillas, supongo, no la he probado:

ENCLOSED BY '\"'

Publicidad

Socializa