Foro - Perl en Español

por **situ** » 2011-02-22 21:31 @938

Estaba probando de crear un archivo Excel de la salida. El tema es que solo me guarda el último valor del array y no todos =(

Les dejo el script acotado...

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use Spreadsheet::WriteExcel;
my $workbook  = Spreadsheet::WriteExcel->new('64.xls');
my $worksheet = $workbook->add_worksheet();
$worksheet->write(0, 0,  'Hostname');
$worksheet->write(0, 1,  'Autenticacion');
 
print "### Autenticacion ###\n";
        foreach $aaaserver(@aaaserver) {
                if ($aaaserver ~~ @servertacacs) {
                        print "Server= $aaaserver -> OK\n";
                        $worksheet->write(1, 1, "$aaaserver -> OK");    
                }
                else {
                        print "Server= $aaaserver -> MAL\n"; 
                        $worksheet->write(1, 1, "$aaaserver -> MAL");  
                }
        }
 
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Por consola obtengo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

### Autenticacion ###

Server= 1.1.1.1 -> OK

Server= 2.2.2.2 -> OK
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

En el Excel solo figura : 2.2.2.2

¿Alguien me puede ayudar?

Gracias.

#!/usr/bin/perl
if ( @ARGV != 1 ) {
 
    die "\nUso: $0 <config>\n\n"
 
      . "   <config>    config.cfg\n"
      ;
 
}
use Excel::Writer::XLSX;
my $workbook  = Excel::Writer::XLSX->new("a_simple.xlsx");
my $worksheet = $workbook->add_worksheet();
$configuracion= $ARGV[0];
chomp $configuracion;
 
$worksheet->write( 0, 0, "Hostname" );
$worksheet->write( 0, 1, "Servers" );
                                                        
open($archivo, "<", "$configuracion")|| die "$!";
while ( $resultado = <$archivo> ) {
 if($resultado =~ m/^hostname\s(.*)/){
         $hostname=$1;
         next;
 }
 elsif($resultado =~ m/^server\shost\s([0-9|\.].*)\sport/) {
        push (@server,$1);
        next;
}
} 
print "### Hostname ### \n$hostname\n";
$worksheet->write( 1, 0, "$hostname" );
 
print "### Servers ###";
foreach $server(@server) {
        print "$server\n";      
        $worksheet->write( 1, 1, "$server" );
        }
 
close ($archivo);
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Salida por consola:

### Hostname ###
PC_Linux
### Servers ###
1.3.10.1
1.3.12.2
1.3.60.3
1.3.60.32

En el excel solamente me guarda el server "1.3.60.32" y no toda la lista.

Alguien me pueda dar una mano? muchas gracias.

saludos.

por **explorer** » 2011-03-05 06:25 @309

Me remito a lo respondido por mí en el mensaje anterior: estás escribiendo siempre en la celda (1,1).

Debes usar una variable que se vaya incrementando por cada nombre de servidor, para que vaya escribiendo en filas sucesivas.

por **situ** » 2011-03-07 13:12 @592

¡Ah! Voy a tener que crear un bucle entonces para ir cambiando de fila.

Gracias.

Foro - Perl en Español

Escribir en fichero Excel

Escribir en fichero Excel

Publicidad

Re: Escribir en fichero Excel

Excel::Writer::XLSX

Re: Escribir en fichero Excel

Re: Escribir en fichero Excel

¿Quién está conectado?