Foro - Perl en Español

por **situ** » 2015-07-17 21:19 @930

Tengo un script el cual se encarga de leer una base de datos SQLite y guardar su información en un documento Word. El script funciona pero no de la mejor forma, y por este motivo los molesto para pedirles si me ayudan a mejorarlo, por favor.

Como verán cuando guardo la descripción, riesgo y recomendación tuve que hacer 3 SELECT, pero quiero ver la posibilidad de achicar un poco el código.

Por otro lado quería consultarles cómo puedo hacer para asociar la variable $contador con el nombre de cada elemento que sale de $row[0], ya que me gustaría poder hacer que no se tenga que escribir el nombre del elemento como ahora, sino su número que sale por pantalla y separado por coma con otros. Así se listan varios y no solo uno.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
use DBI;
 
if ( @ARGV != 0 ) {
 
die "###############################################################\n"
.   "#                    Crear reporte                            #\n"
.   "###############################################################\n\n"
      ;
}
 
############ Variables ############
$contador=0;
use utf8;
############ Conecto a la DB ############
my $dbh = DBI->connect(          
    "dbi:SQLite:dbname=issues_descripcion.s3db", 
    "",                          
    "",                          
    { 
        RaiseError => 1,
        sqlite_unicode => 1,
        },         
) or die $DBI::errstr;
 
########### Creamos el documento word ############
use MsOffice::Word::HTML::Writer;
  my $doc = MsOffice::Word::HTML::Writer->new(
    title        => "Reporte",
    WordDocument => {View => 'Print'},
  );
 
  $doc->create_section(
    page => {size   => "21.0cm 29.7cm",
             margin => "1.2cm 2.4cm 2.3cm 2.4cm"},
  );
 
############ Listado de vulnerabilidades ############ 
print "\n\nListado de las vulnerabilidades almacenadas:\n";
my $sth = $dbh->prepare("SELECT issues FROM informacion");
$sth->execute();
while (my @row = $sth->fetchrow_array) {
   $contador ++;
   print "$contador - $row[0]\n";
   #$doc->write("<p>$contador - $row[0]</p>\n",
   #);
}
 
print "\n\nIngrese el nombre de la vulnerabilidad: ";
$issues = <>;
chomp $issues;
print "Vulnerabilidad ingresada: $issues";
$doc->write("<p><h2><b>$issues</b></h2></p>\n");
$doc->write("<p><h3><b>Observacion:</h3></b></h2></p>\n");
my $sth = $dbh->prepare("SELECT observacion FROM informacion WHERE issues='$issues'");
$sth->execute();
 
while (my @row = $sth->fetchrow_array) {
   $doc->write("<p>$row[0]</p>\n",
   );
}
 
my $sth = $dbh->prepare("SELECT riesgo FROM informacion WHERE issues='$issues'");
$sth->execute();
$doc->write("<p><h3><b>Riesgo:</h3></b></h2></p>\n");
while (my @row = $sth->fetchrow_array) {
   $doc->write("<p>$row[0]</p>\n",
   );
}
 
my $sth = $dbh->prepare("SELECT recomendacion FROM informacion WHERE issues='$issues'");
$sth->execute();
$doc->write("<p><h3><b>Recomendacion:</h3></b></h2></p>\n");
while (my @row = $sth->fetchrow_array) {
   $doc->write("<p>$row[0]</p>\n",
   );
}
 
$doc->save_as("reporte.doc");
$sth->finish();
$dbh->disconnect();
 
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Muchas gracias.

#!/usr/bin/perl
use DBI;
use utf8;
use MsOffice::Word::HTML::Writer;
 
if ( @ARGV != 0 ) {
 
    die "###############################################################\n"
    .   "#                    Crear reporte                            #\n"
    .   "###############################################################\n\n"
    ;
}
 
############ Variables ############
my $contador = 0;
 
############ Conecto a la DB ############
my $dbh = DBI->connect(          
    "dbi:SQLite:dbname=issues_descripcion.s3db",
    "",                          
    "",                          
    {
        RaiseError     => 1,
        sqlite_unicode => 1,
    },        
) or die $DBI::errstr;
 
########### Creamos el documento word ############
my $doc = MsOffice::Word::HTML::Writer->new(
    title        => "Reporte",
    WordDocument => {View => 'Print'},
);
 
$doc->create_section(
    page   => {size  => "21.0cm 29.7cm",
    margin => "1.2cm 2.4cm 2.3cm 2.4cm"},
);
 
############ Listado de vulnerabilidades ############
print "\n\nListado de las vulnerabilidades almacenadas:\n";
 
my $sth = $dbh->prepare("SELECT issues FROM informacion");
$sth->execute();
while (my @row = $sth->fetchrow_array) {
    $contador++;
    print "$contador - $row[0]\n";
    #$doc->write("<p>$contador - $row[0]</p>\n",
    #);
}
 
print "\n\nIngrese el nombre de la vulnerabilidad: ";
 
chomp(my $issues = <>);
print "Vulnerabilidad ingresada: $issues";
 
$doc->write("<p><h2><b>$issues</b></h2></p>\n");
 
for my $issue (qw(observacion riesgo recomendacion)) {
 
    my $sth = $dbh->prepare("SELECT $issue FROM informacion WHERE issues=?");
    $sth->execute($issues);
 
    $doc->write("<p><h3><b>" . ucfirst($issues) . ":</h3></b></h2></p>\n");
 
    while (my @row = $sth->fetchrow_array) {
        $doc->write("<p>$row[0]</p>\n",
        );
    }
}
 
$doc->save_as("reporte.doc");
$sth->finish();
$dbh->disconnect();
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Lo que no me queda tampoco claro es qué hace ahí un die().

por **situ** » 2015-07-19 20:27 @893

Muchas gracias por optimizar el código.

La verdad que estoy tratando de armarlo mediante ejemplos, por este motivo tengo seguramente código de más o mal posicionado.

Cuando ejecuto el script obtengo la lista de vulnerabilidad y mediante el contador lo que hago es ponerle un número a su izquierda, como se ve en la siguiente imagen.

Imagen

Mi idea es que el script consulte el número de la vulnerabilidad y de las vulnerabilidades separados por coma, así no hace falta poner todo el nombre de la vulnerabilidad o vulnerabilidades a exportar en el documento.

Como se ve ahora hay que ingresar todo el nombre de la vulnerabilidad.

por **explorer** » 2015-07-20 20:14 @885

¡Ah, ya entiendo! Quieres hacer una especie de menú.

Una opción sería la que te comenté: creas un hash que relacione el número con la cadena, y así luego es fácil recuperar los valores que solicita el usuario:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
# Imita el contenido de la base de datos ("SELECT issues FROM informacion")
my @vulnerabilidades =
    ( 'Software desactualizado'
    , 'Comunidad SNMP por defecto'
    , 'Otra'
    , 'Y otra más'
);
 
my $contador = 0;
 
my %vulnerabilidades;                           # hash a rellenar
 
for my $row (@vulnerabilidades) {
#while (my @row = shift @vulnerabilidades) {
    $contador++;
    print "$contador - $row\n";
 
    $vulnerabilidades{$contador} = $row;        # guardamos la relación
}
 
# ...
 
print "\nIngrese el número o números de las vulnerabilidades, separados por comas: ";
 
chomp(my $issues = <>);
print "Vulnerabilidad ingresada: [$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 "Sacando vulnerabilidades de [$vulnera]:\n";
 
        #$doc->write("<p><h2><b>$vulnera</b></h2></p>\n");
        #for my $issue (qw(observacion riesgo recomendacion)) {
        #    my $sth = $dbh->prepare("SELECT $issue FROM informacion WHERE issues=?");
        #    $sth->execute($vulnera);
        #    $doc->write("<p><h3><b>" . ucfirst($vulnera) . ":</h3></b></h2></p>\n");
        #    while (my @row = $sth->fetchrow_array) {
        #        $doc->write("<p>$row[0]</p>\n",
        #        );
        #    }
        #}
    }
}
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

De todas formas, la forma recomendada de hacer esto es usando un módulo de la familia Getopt, ya que permite hacer menús de forma sencilla.

por **situ** » 2015-07-21 07:57 @373

¡Perfecto! Muchas gracias.

Voy a continuar y cuando tenga el script con más funcionalidades lo comparto.
Saludos.

por **situ** » 2015-07-23 00:11 @049

Ahora estoy tratando de exportar la DB a un excel, pero no lo puedo lograr.

Necesito de alguna forma poder exportar issues/observacion/recomendacion de la base de datos y aparte en la columna "prueba" (columna que va antes de recomendaciones) ingresar el texto "chequeado".

Así quedo el script:

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 $workbook  = Excel::Writer::XLSX->new("reporte_issues.xlsx");
my $worksheet = $workbook->add_worksheet('Vulnerabilades');
$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=midb.s3db",
    "", "",
    {
        RaiseError     => 1,
        sqlite_unicode => 1,
    },
) or die $DBI::errstr;
 
########### Creamos el reporte ############
##Iniciadores de las variables que corresponden a las columnas
$a = 0;
$b = 0;
$c = 0;
$d = 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 vulnerabilidades
my @columnas = qw(
  Vulnerabilidad        Descripción    Prueba Recomendaciones
);
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);
            @row = $sth->fetchrow_array;
            foreach my $row (@row) {
                chomp $row;
                $worksheet->write( 1 + $a, 0, $row[0], $files );
            }
        }
    }
}
 
############ Indicamos qué archivos fueron creados ############
print "\n\n############################################################\n\n";
print "\nSe creó el informe: reporte_issues.xlsx";
 
$sth->finish();
$dbh->disconnect();
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Mil gracias, como siempre.

por **explorer** » 2015-07-23 11:29 @520

Lo mismo que antes: puedes usar un hash para saber en qué índice de columna debes escribir la vulnerabilidad que estás sacando de la base de datos.

por **situ** » 2015-07-23 14:57 @664

Estuve intentando y no pude, pensé que haciendo el "bucle" sobre el array podría llegar a solucionarlo pero no es así.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

############ 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) {
        print $testing[1];
        $worksheet->write( 1 + $a, 0, $testing[0], $files );
    }
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Saludos.

por **explorer** » 2015-07-23 18:18 @804

Aquí hay errores:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

    for my $testing (@titulos) {
        print $testing[1];
        $worksheet->write( 1 + $a, 0, $testing[0], $files );
    }
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Resulta que si no varías el contenido de $a, estás guardando todos los valores de $testing[0] en la misma celda.

Prueba a cambiar $a por $a++

por **situ** » 2015-07-23 18:30 @813

Perfecto, ahora se guardan todos los valores en la columna A, pero como comentaba antes necesito que cada uno vaya a una columna diferente y entre medio de 2 columnas, ingresar un texto.

Gracias.

Foro - Perl en Español

Perl y SQLite

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

Re: Perl y SQLite

¿Quién está conectado?