Foro - Perl en Español

por **coltx** » 2017-11-02 16:33 @731

Estimados, tengo el siguiente problema:

Estoy leyendo un archivo Excel con Spreadsheet::XLSX para insertar sus filas en una BD. El archivo tiene alrededor de 1100 líneas y al parecer es por la cantidad de líneas que el script se detiene antes de terminar y no inserta nada (estoy ejecutando desde un terminal como perl xxxx.pl xxxxx.xlsx). Digo lo de la cantidad de líneas ya que si dejo el archivo Excel solo en 100 líneas las toma e inserta sin problemas.

El siguiente es mi script:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
use Spreadsheet::XLSX;
use DBI;
use lib 'libs/';
use Funciones;
use utf8;
 
# DATOS DE CONEXION PARA
my $database    = "prueba";
my $data_source = "DBI:mysql:$database;";
my $username    = "usuario";
my $password    = "pass";
 
my $sql = DBI->connect( $data_source, $username, $password )
    or die "Couldn't connect to database: " . DBI->errstr;
 
my $excel = Spreadsheet::XLSX->new( @ARGV[0] );
 
my $sheet = $excel->{Worksheet}[0];
 
$sheet->{MaxRow} ||= $sheet->{MinRow};
 
my $LINEA = 0;
 
foreach my $row ( $sheet->{MinRow} .. $sheet->{MaxRow} ) {
 
    $LINEA++;
    $sheet->{MaxCol} ||= $sheet->{MinCol};
 
    my $BRANCH = $sheet->{Cells}[$row][0]->{Val};
 
    if ( $CAMPOV ne "TITULO" ) {
 
        my $CAMPO1 = "";
        my $CAMPO2 = "";
        my $CAMPO3 = "";
        my $CAMPO4 = "";
        my $CAMPO5 = "";
 
        $CAMPO1 = $sheet->{Cells}[$row][1]->{Val};
        $CAMPO2 = $sheet->{Cells}[$row][2]->{Val};
        $CAMPO3 = $sheet->{Cells}[$row][3]->{Val};
        $CAMPO4 = $sheet->{Cells}[$row][4]->{Val};
        $CAMPO5 = $sheet->{Cells}[$row][5]->{Val};
 
        my $queryH = sprintf(
            "INSERT INTO tabla (
                                                        campo1,
                                                        campo2,
                                                        campo3,
                                                        campo4,
                                                        campo5
                                                ) VALUES (
                                                        '$CAMPO1',
                                                        '$CAMPO2',
                                                        '$CAMPO3',
                                                        '$CAMPO4',
                                                        '$CAMPO5',)"
        );
 
        my $dbh = DBI->connect( $data_source, $username, $password )
            or die "Couldn't connect to database: " . DBI->errstr;
        $dbh->do($queryH) or die "Couldn't insert to database: " . DBI->errstr;
    }
}
 
 
Coloreado en 0.005 segundos,  usando GeSHi 1.0.8.4

Hay varias cosas del código, que no me gustan.

La línea 62 debe reemplazar a la 15. Es decir, en la línea 15 haces una conexión a la base de datos, y guardas el gestor de la conexión en $sql, pero luego ya no lo usas en el resto del programa. Si hubieras puesto "use warnings;" al principio del código, el propio Perl te habría advertido de esto.

El problema está en la línea 62: estás creando una nueva conexión a la base de datos por cada línea de la hoja. Es muy posible que esta sea la causa del agotamiento de conexiones.

La solución es esa: quitas la línea 15 y pones en su lugar la línea 62.

Otra cosa. Escribir @ARGV[0] es un error sintáctico en Perl 5. Lo correcto es $ARGV[0]

Otra cosa: la variable $CAMPOV nunca se inicializa. Si hubieras puesto "use strict;" al principio del programa, el propio Perl te habría advertido de esto.

Otra cosa: la variable $BRANCH se inicializa, pero nunca se usa.

Otra cosa: en la línea 59 hay una coma demás después de $CAMPO5. Comprueba que esa sintaxis es correcta con esa base de datos. Sí que es correcta en Perl, pero tengo dudas con respecto al SQL.

Otra cosa: te sobra el sprintf() de la línea 47 y el paréntesis de la 60. No necesitas nada para crear la consulta. Es una simple cadena de texto con entrecomillado doble.

por **coltx** » 2017-11-08 16:18 @720

Gracias, explorer, efectivamente el problema estaba en la línea 62. También he agregado 'use strict' y 'use warnings' para ayudarme.

Foro - Perl en Español

Script se detiene al leer Excel

Script se detiene al leer Excel

Publicidad

Re: Script se detiene al leer Excel

Re: Script se detiene al leer Excel

¿Quién está conectado?