Foro - Perl en Español

por **explorer** » 2015-07-24 06:34 @315

Pero, ¿a qué columnas? Las tienes definidas en la línea 43:

Vulnerabilidad Descripción Prueba Recomendaciones

Quiero decir, ¿qué distingue a una columna de otra según lo que sacas de la base de datos?

Nos falta mucha información...

## Nombre de las columnas del TAB vulnerabilities
    my @columnas = qw(
      observacion riesgo recomendacion
    );
 
    for ( my $i = 0 ; $i < @columnas ; $i++ ) {
        $worksheet->write( 0, $i, $columnas[$i], $header );
    }
 
    my %columnas = map { $columnas[$_] => $_ } 0 .. $#columnas;
 
    ## Formato para las filas
    my $files = $workbook->add_format();
    $files->set_border(1);
    $files->set_border_color('black');
 
    ############ Listado de vulnerabilidades ############
    print "\n\nListado de las vulnerabilidades almacenadas:\n";
    my $sth = $dbh->prepare("SELECT issues FROM mitabla");
    $sth->execute();
    while ( my @row = $sth->fetchrow_array ) {
        $contador++;
        print "$contador - $row[0]\n";
        $vulnerabilidades{$contador} = $row[0];
    }
 
    ############ Listado de vulnerabilidades ############
    print
"\n\nIngrese el número o números de las vulnerabilidades, separados por comas: ";
    chomp( my $issues = <> );
    print "\n[+]Vulnerabilidad/es ingresada/s: [$issues]\n";
 
    my @numeros = split /,/, $issues;
 
    for my $numero (@numeros) {
        $numero += 0;    # aseguramos que es un número
 
        if ( $vulnerabilidades{$numero} ) {
            my $vulnera = $vulnerabilidades{$numero};
 
            print " [-]Exportando vulnerabilidad [$vulnera]\n";
 
            for my $issue (qw(observacion riesgo recomendacion)) {
                my $sth =
                  $dbh->prepare("SELECT $issue FROM mitabla WHERE issues=?");
                $sth->execute($vulnera);
                push( @titulos, $sth->fetchrow_array );
            }
        }
    }
 
    for my $testing (@titulos) {
        $worksheet->write( 1 + $a, 0, $columnas{ $testing[0] }, $files );
    }
 
    $sth->finish();
    $dbh->disconnect();
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Error:

Sintáxis: [ Descargar ] [ Ocultar ]

Use of uninitialized value in scalar assignment at C:/Perl64/site/lib/Excel/Writer/XLSX/Worksheet.pm line 1829, <> line 1.

Muchas gracias por la buena voluntad y predisposición.

por **explorer** » 2015-07-24 19:41 @862

No, no, no... Estamos liando cosas...

La creación de %columnas se refiere al array @columnas que contiene los nombres de las columnas de la hoja, no las columnas de las SQL que estamos extrayendo.

El error que sale está diciendo que $testing[0] contiene un valor que no corresponde a ninguno de los valores de las claves creadas para %columnas. Si lo hubieras dejado como te puse en el mensaje anterior, %columnas contendría como claves los mismos nombres que las columnas de la hoja, que, estamos suponiendo, son justo los valores que estamos obteniendo de la base de datos.

Sigues usando $a, pero no la incrementas ni nada. En mi código la renombré a $fila, y se supone que se incrementa en alguna parte del bucle, para que se pinte la siguiente línea de la hoja de cálculo.

En la línea 47 estás almacenando en @titulos todos los resultados de las consultas a la base de datos, pero además, de todas las vulnerabilidades solicitadas por el usuario. Y cuando terminas, haces el bucle de las líneas 52 a 54, recorriendo esos valores. Y yo creo que eso no es correcto. Vamos a ver... las columnas están determinadas por los valores devueltos por la base de datos, pero ¿y las filas? ¿cómo se rellenan? Si hay que rellenar una fila por cada vulnerabilidad solicitada por el usuario, lo estamos haciendo mal colocando ese bucle fuera.

Repasa mi código anterior. Verás que uso $testing[0] y $testing[1], para saber en qué columnas pintar y qué pintar, pero la verdad es que no sé el aspecto real que tienen los resultados devueltos por la base de datos. Un pequeño ejemplo de eso y de cómo quedaría en la hoja, estaría bien.

Repasa con tranquilidad el orden de ejecución de las cosas. Programar no es ir poniendo las cosas "a ver si ahora funcionan". Programar es un arte parecido a la relojería: o funciona o no funciona. Y si funciona, es porque todo se realiza en la secuencia deseada.

por **situ** » 2015-07-24 20:03 @877

Perfecto, voy a leer nuevamente el código para ver dónde está el error y, como comentas, es así la idea: es llenar las filas del excel con los datos obtenidos de la base de datos.

Yo pensé que haciendo el bucle de @titulos iba a poder manejar esa parte pero veo que no.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

for my $issue (qw(observacion riesgo recomendacion)) {
    my $sth = $dbh->prepare("SELECT $issue FROM mitabla WHERE issues=?");
    $sth->execute($vulnera);
    push( @titulos, $sth->fetchrow_array );
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Muchas gracias.

por **situ** » 2015-07-25 19:07 @838

Perdón, pero estuve probando y la verdad que no logro hacerlo funcionar. Tengo que seguir capacitándome en el lenguaje, sin duda.

El script final es este:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use DBI;
use utf8;
use Excel::Writer::XLSX;
############ Variables ############
my $contador = 0;
my %vulnerabilidades;
my %informacion;
my $workbook  = Excel::Writer::XLSX->new("reporte.xlsx");
my $worksheet = $workbook->add_worksheet('Vulnerabilities');
$worksheet->set_tab_color('red');
 
#$worksheet->autofilter( 0, 0, 999999, 14 );
$worksheet->set_column( 0, 14, 20 );
 
############ Conecto a la DB ############
my $dbh = DBI->connect(
    "dbi:SQLite:dbname=mitabla.s3db",
    "", "",
    {
        RaiseError     => 1,
        sqlite_unicode => 1,
    },
) or die $DBI::errstr;
 
########### Creamos el reporte ############
##Iniciadores de las variables q corresponden a las columnas
$a = 0;
$b = 0;
$c = 0;
## Formato para los nombres de las columnas
my $header = $workbook->add_format();
$header->set_bold();
$header->set_size(12);
$header->set_color(0x09);
$header->set_align('center');
$header->set_fg_color(0x16);
$header->set_border(1);
$header->set_border_color('black');
## Nombre de las columnas del TAB vulnerabilities
my @columnas = qw(
  issues observacion recomendacion
);
 
for ( my $i = 0 ; $i < @columnas ; $i++ ) {
    $worksheet->write( 0, $i, $columnas[$i], $header );
}
 
## Formato para las filas
my $files = $workbook->add_format();
$files->set_border(1);
$files->set_border_color('black');
 
############ Listado de vulnerabilidades ############
print "\n\nListado de las vulnerabilidades almacenadas:\n";
my $sth = $dbh->prepare("SELECT issues FROM mitabla");
$sth->execute();
while ( my @row = $sth->fetchrow_array ) {
    $contador++;
    print "$contador - $row[0]\n";
    $vulnerabilidades{$contador} = $row[0];
}
 
############ Listado de vulnerabilidades ############
print
"\n\nIngrese el número o números de las vulnerabilidades, separados por comas: ";
chomp( my $issues = <> );
print "\n[+]Vulnerabilidad/es ingresada/s: [$issues]\n";
 
my @numeros = split /,/, $issues;
 
for my $numero (@numeros) {
    $numero += 0;    # aseguramos que es un número
 
    if ( $vulnerabilidades{$numero} ) {
        my $vulnera = $vulnerabilidades{$numero};
        print " [-]Exportando vulnerabilidad [$vulnera]\n";
        for my $issue (qw(issues observacion recomendacion)) {
            my $sth =
              $dbh->prepare("SELECT $issue FROM mitabla WHERE issues=?");
            $sth->execute($vulnera);
            while ( my @row = $sth->fetchrow_array ) {
 
                #$worksheet->write( 1+$a, 0, $row[0], $files );
                my $info = $informacion{ $row[0] };
            }
        }
    }
}
 
$sth->finish();
$dbh->disconnect();
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Hago lo siguiente:
- Con el bucle de la línea 50 creo los títulos a las columnas del excel
- Con el bucle de la línea 83 comienzo a buscar en la base de datos la información de la columna "issues", "observacion" y por último, "recomendacion".

Cuando comienzo a buscar en la base de datos voy a obtener en cada columna. Por ejemplo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

issues: cross-site scripting

observacion: es una vulnerabilidad que permite inyectar código javascript

recomendacion: recomiendo filtrar caracteresColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

El excel debería quedar así:
Imagen

Y como las vulnerabilidades las ingreso separadas por comas, voy a obtener la información de cada una y la voy a guardar en el excel.

Muchas gracias.

por **explorer** » 2015-07-25 20:26 @893

Pues entonces es muy sencillo: no necesitas siquiera un hash.

Con un par de variables, una que se llame $fila y otra que se llame $columna, te vale.

En el bucle for() de la línea 72, vas incrementando el valor de $fila (estamos escribiendo una vulnerabilidad en cada fila por cada una de las seleccionadas por el usuario).

Y en el bucle for() de la línea 78, vas incrementando el valor de $columna.

Naturalmente, antes de los bucles, has inicializado esas dos variables. $fila = 1 antes del for() de la línea 72, y $columna = 1 antes del for() de la 78.

Al llegar a la línea 85 ya lo tienes todo: $fila, $columna y $row[0] contiene el texto sacado de la base de datos.

por **situ** » 2015-07-26 22:39 @985

Muchas gracias por la corrección.

Foro - Perl en Español

Perl y SQLite

Re: Perl y SQLite

Publicidad

Re: Perl y SQLite

Re: Perl y SQLite

Re: Perl y SQLite

Re: Perl y SQLite

Re: Perl y SQLite

Re: Perl y SQLite

Re: Perl y SQLite

Re: Perl y SQLite

¿Quién está conectado?