Foro - Perl en Español

por **natxo** » 2011-09-05 09:36 @441

Tengo un archivo (en realidad es el resultado de un comando en un servidor Windows) con estos formato:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Writer name: 'System Writer'

   Writer Id: {e8132975-6f93-4464-a53e-1050253ae220}

   Writer Instance Id: {eb6b4c30-aa48-486a-9618-0d1934d180ca}

   State: [1] Stable

   Last error: No error

Writer name: 'Registry Writer'

   Writer Id: {afbab4a2-367d-4d15-a586-71dbb18f8485}

   Writer Instance Id: {d3faa119-61c1-4ec4-b163-68b43efad58b}

   State: [1] Stable

   Last error: No error

Writer name: 'IIS Metabase Writer'

   Writer Id: {59b1f0cf-90ef-465f-9609-6ca8b2938366}

   Writer Instance Id: {d46610d4-d9a9-42c5-87c0-246aa1e352ad}

   State: [1] Stable

   Last error: No error

Writer name: 'Event Log Writer'

   Writer Id: {eee8c692-67ed-4250-8d86-390603070d00}

   Writer Instance Id: {8e45b579-b747-4967-9b4d-17f126bff3bb}

   State: [1] Stable

   Last error: No error
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

etc...

Me gustaría guardar cada 'párrafo' en una estructura tipo hash, así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

writer_name    =>'nombre',

writer_id      =>'cadena larga',

writer_inst_id =>'cadena larga',

writer_state   =>'estado',

last_error     =>'tip de error',Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Mi intención es luego poder sacar el writer_name por ejemplo si el writer_state no es X.

Hasta ahora he conseguido sacar los párrafos y guardarlos en un escalar. Luego intento separar líneas de cada párrafo y guardarlas en una variable, pero no lo logro:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use strict;
use warnings;
 
my $vssadmin = "vssadmin list writers" ;
 
# run $vssadmin and save its output in memory for processing
open ( VSS, "$vssadmin |" ) or die "cannot run $vssadmin\n" ;
 
# read the output one paragraph at the time
$/ ="";
 
# and now process the output
while ( my $line = <VSS> ) {
    # dump empty lines and the vssadmin header
    chomp $line;
    next if $line =~ m/.*Microsoft Corp.*$/;
 
    # 
    print $line, "\n" ;
    my ($writer_name, $name, $writer_id, $id_guid, $writer_inst_id, $inst_id_guid, $state, $state_value, $last_error, $last_errorvalue ) = split (/:/, $line) ;
 
    print "Writer name:\t $name\n" ;
    print "Writer id:\t $id_guid\n" ;
    print "Writer instance id:\t $inst_id_guid\n\n\n" ;
 
}
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Me sale esto:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Writer name: 'System Writer'

   Writer Id: {e8132975-6f93-4464-a53e-1050253ae220}

   Writer Instance Id: {eb6b4c30-aa48-486a-9618-0d1934d180ca}

   State: [1] Stable

   Last error: No error

Writer name:      'System Writer'

   Writer Id

Writer id:        {eb6b4c30-aa48-486a-9618-0d1934d180ca}

   State

Writer instance id:       No error

Writer name: 'Event Log Writer'

   Writer Id: {eee8c692-67ed-4250-8d86-390603070d00}

   Writer Instance Id: {5eafbd30-bc30-48f7-a03a-0b6ccc17ea8f}

   State: [1] Stable

   Last error: No error

Writer name:      'Event Log Writer'

   Writer Id

Writer id:        {5eafbd30-bc30-48f7-a03a-0b6ccc17ea8f}

   State

Writer instance id:       No error
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Como veis, con el primer print() sale todo el párrafo. Luego intento crear un array con split(), pero no se corresponden los valores con lo que tendría que salir.

¿Alguna pista? Llevo un buen rato y no lo veo, la verdad.

El problema está en el split().

Estás indicando que "parta" la cadena de caracteres por los caracteres ':', y que lo asigne a las variables. Eso está bien... pero estás olvidando que en esa cadena de caracteres siguen estando los caracteres de fin de línea y las cadenas que preceden a los ':'.

Si pones estas nuevas líneas, lo verás más claro:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

    print "Writer name:\t[$name]\n" ;
    print "Writer id:\t[$id_guid]\n" ;
    print "Writer instance id:\t[$inst_id_guid]\n\n\n" ;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **natxo** » 2011-09-05 16:51 @743

Vamos progresando.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use strict;
use warnings;
 
use Data::Dumper;
 
my ( $hash_ref, $writer_name, $writer_id, $writer_inst_id, $state, $last_error );
 
# a paragraph is a line
$/ = "" ;
 
# massage the DATA
# 1st split the paragraphs in lines, save the whole line in @line
# 2nd split @line in keys/values with ":"
while ( my $line = <DATA> ) {
    chomp $line ;
 
    my @line = split (/[\n\r]/, $line) ;
 
    for ( @line ) {
        my ($key, $value)  = split ( /:/) ;
 
        if ( $key =~ m/^.*name$/) {
            $writer_name = $value;
        }
        elsif ( $key =~ m/.*writer id$/i ) {
            $writer_id = $value;
        }
        elsif ( $key =~ m/.*writer instance id$/i ) {
            $writer_inst_id= $value;
        }
        elsif ( $key =~ m/.*state$/i ) {
            $state= $value;
        }
        elsif ( $key =~ m/.*last error$/i ) {
            $last_error= $value;
        }
 
        $hash_ref = { $writer_name => { 
                                        "Writer Name"           => $writer_name,
                                        "Writer ID"             => $writer_id,
                                        "Writer Instance ID"    => $writer_inst_id,
                                        "State"                 => $state,
                                        "Last error"            => $last_error,
                                      } 
                    } ;
    }
 
    print Dumper $hash_ref;
}
 
 
__DATA__
Writer name: 'System Writer'
   Writer Id: {e8132975-6f93-4464-a53e-1050253ae220}
   Writer Instance Id: {eb6b4c30-aa48-486a-9618-0d1934d180ca}
   State: [1] Stable
   Last error: No error
 
Writer name: 'Registry Writer'
   Writer Id: {afbab4a2-367d-4d15-a586-71dbb18f8485}
   Writer Instance Id: {d3faa119-61c1-4ec4-b163-68b43efad58b}
   State: [1] Stable
   Last error: No error
 
Writer name: 'IIS Metabase Writer'
   Writer Id: {59b1f0cf-90ef-465f-9609-6ca8b2938366}
   Writer Instance Id: {d46610d4-d9a9-42c5-87c0-246aa1e352ad}
   State: [1] Stable
   Last error: No error
 
Writer name: 'Event Log Writer'
   Writer Id: {eee8c692-67ed-4250-8d86-390603070d00}
   Writer Instance Id: {8e45b579-b747-4967-9b4d-17f126bff3bb}
   State: [1] Stable
   Last error: No error
 
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Sintáxis: [ Descargar ] [ Ocultar ]

Using bash Syntax Highlighting

$ perl vssaddmin.pl 
$VAR1 = {
          ' \'System Writer\'' => {
                                    'Last error' => ' No error',
                                    'Writer ID' => ' {e8132975-6f93-4464-a53e-1050253ae220}',
                                    'Writer Name' => ' \'System Writer\'',
                                    'State' => ' [1] Stable',
                                    'Writer Instance ID' => ' {eb6b4c30-aa48-486a-9618-0d1934d180ca}'
                                  }
        };
$VAR1 = {
          ' \'Registry Writer\'' => {
                                      'Last error' => ' No error',
                                      'Writer ID' => ' {afbab4a2-367d-4d15-a586-71dbb18f8485}',
                                      'Writer Name' => ' \'Registry Writer\'',
                                      'State' => ' [1] Stable',
                                      'Writer Instance ID' => ' {d3faa119-61c1-4ec4-b163-68b43efad58b}'
                                    }
        };
$VAR1 = {
          ' \'IIS Metabase Writer\'' => {
                                          'Last error' => ' No error',
                                          'Writer ID' => ' {59b1f0cf-90ef-465f-9609-6ca8b2938366}',
                                          'Writer Name' => ' \'IIS Metabase Writer\'',
                                          'State' => ' [1] Stable',
                                          'Writer Instance ID' => ' {d46610d4-d9a9-42c5-87c0-246aa1e352ad}'
                                        }
        };
$VAR1 = {
          ' \'Event Log Writer\'' => {
                                       'Last error' => ' No error',
                                       'Writer ID' => ' {eee8c692-67ed-4250-8d86-390603070d00}',
                                       'Writer Name' => ' \'Event Log Writer\'',
                                       'State' => ' [1] Stable',
                                       'Writer Instance ID' => ' {8e45b579-b747-4967-9b4d-17f126bff3bb}'
                                     }
 
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Así funciona siempre y cuando ejecute el print Dumper $hash_ref dentro del bucle while(); no entiendo por qué :-)

, si alguien tiene a bien explicarlo se lo agradecería. Según como lo entiendo, voy procesando los datos y llenando el hash con claves únicas. Si ejecuto el print Dumper $hash_ref al final, sólo veo el último elemento del hash. Extraño.

por **explorer** » 2011-09-05 17:23 @766

Estás reescribiendo el valor del hash, en cada vuelta. Por eso sólo hay un único valor: el último.

Cambia la línea 38 por

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

        $hash_ref->{ $writer_name } = {
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

y la 45 por

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

                    ;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **natxo** » 2011-09-06 02:26 @143

Perfecto. Ahora lo entiendo, estaba modificando el hash completo en cada vuelta en vez de añadir un elemento.

Gracias por tu ayuda, como siempre.

Foro - Perl en Español

Pregunta sobre estructuras

Pregunta sobre estructuras

Publicidad

Re: Pregunta sobre estructuras

Re: Pregunta sobre estructuras

Re: Pregunta sobre estructuras

Re: Pregunta sobre estructuras

¿Quién está conectado?