Foro - Perl en Español

por **Davide** » 2011-07-05 04:21 @223

Buenas a todos, tengo una utilidad que genera un registro en un log XML con el siguiente aspecto:

Sintáxis: [ Descargar ] [ Ocultar ]

Using xml Syntax Highlighting

<?xml version="1.0" encoding="ISO8859-1" ?>
<?xml-stylesheet type="text/xsl" href="drivers.xsl"?>
<table>
 
        <driver name="Driver1">
                <data field="Timestamp">2011:07:05 10:30:01</data>
                <data field="Start Option">Manual</data>
                <data field="Status">RUNNING</data>
                <data field="TOA File">/33086.drv</data>
                <data field="Size"></data>
        </driver>
        <driver name="Driver2">
                <data field="Timestamp">2011:07:05 10:30:01</data>
                <data field="Start Option">Disabled</data>
                <data field="Status">DISABLED</data>
                <data field="TOA File">/33003.drv</data>
                <data field="Size"></data>
        </driver>
        <driver name="Driver2">
                <data field="Timestamp">2011:07:05 10:30:01</data>
                <data field="Start Option">Manual</data>
                <data field="Status">STOPPED</data>
                <data field="TOA File">/33027.drv</data>
                <data field="Size"></data>
        </driver>
        <driver name="Driver3">
                <data field="Timestamp">2011:07:05 10:30:01</data>
                <data field="Start Option">Manual</data>
                <data field="Status">RUNNING</data>
                <data field="TOA File">/33125.drv</data>
                <data field="Size"></data>
        </driver>
        <driver name="Driver4">
                <data field="Timestamp">2011:07:05 10:30:01</data>
                <data field="Start Option">Manual</data>
                <data field="Status">RUNNING</data>
                <data field="TOA File">/33118.drv</data>
                <data field="Size"></data>
        </driver>
        <driver name="Driver5">
                <data field="Timestamp">2011:07:05 10:30:01</data>
                <data field="Start Option">Manual</data>
                <data field="Status">RUNNING</data>
                <data field="TOA File">/33182.drv</data>
                <data field="Size"></data>
        </driver>
        <driver name="Driver6">
                <data field="Timestamp">2011:07:05 10:30:01</data>
                <data field="Start Option">Manual</data>
                <data field="Status">RUNNING</data>
                <data field="TOA File">/33065.drv</data>
                <data field="Size"></data>
        </driver>
        <driver name="Driver7">
                <data field="Timestamp">2011:07:05 10:30:01</data>
                <data field="Start Option">Manual</data>
                <data field="Status">RUNNING</data>
                <data field="TOA File">/33045.drv</data>
                <data field="Size"></data>
        </driver>
        <driver name="Driver8">
                <data field="Timestamp">2011:07:05 10:30:01</data>
                <data field="Start Option">Disabled</data>
                <data field="Status">DISABLED</data>
                <data field="TOA File">/134355.drv</data>
                <data field="Size"></data>
        </driver>
        <driver name="Driver9">
                <data field="Timestamp">2011:07:05 10:30:01</data>
                <data field="Start Option">Disabled</data>
                <data field="Status">DISABLED</data>
                <data field="TOA File">/33220.drv</data>
                <data field="Size"></data>
        </driver>
        <driver name="Driver 10">
                <data field="Timestamp">2011:07:05 10:30:01</data>
                <data field="Start Option">Manual</data>
                <data field="Status">RUNNING</data>
                <data field="TOA File">/32984.drv</data>
                <data field="Size"></data>
        </driver>
</table>
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

La idea es tratar ese texto para ir añadiendo nuevas líneas en otro fichero. Cada nueva línea tiene que corresponderse con los campos contenidos dentro del tag <driver...> </driver>. Tendría que ser algo parecido a esto:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Driver1,2011:07:05 10:30:01,Manual,RUNNING,/33086.drv,

Driver2,2011:07:05 10:30:01,Disabled,DISABLED,/33003.drv,

.

.

.

.

Driver 10,2011:07:05 10:30:01,Manual,RUNNING,/32984.drv,Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Si alguien me pudiera ayudar con ello se lo agradecería.

Saludos.

#!/usr/bin/perl
use 5.010;
use strict;
use warnings;
use diagnostics;
use autodie;
 
my (
    $name,      $timestamp,     $start,
    $status,    $toa,           $size,
);
 
open my $XML, q[<], 'code_26957.xml';
open my $OUT, q[>], 'code_26957.out';
 
while (my $linea = <$XML>) {
 
    given ($linea) {
        when (/<driver name="(.*?)"/) {
            $name      = $1;
        }
        when (/field="Timestamp">(.*?)</) {
            $timestamp = $1;
        }
        when (/field="Start Option">(.*?)</) {
            $start     = $1;
        }
        when (/field="Status">(.*?)</) {
            $status    = $1;
        }
        when (/field="TOA File">(.*?)</) {
            $toa       = $1;
        }
        when (/field="Size">(.*?)</) {
            $size      = $1;
        }
        when (/<\/driver>/) {
            say $OUT
                join q[,], 
                        $name,  $timestamp,     $start,
                        $status,$toa,           $size,
            ;
        }
    }
}
 
close   $XML;
close   $OUT;
 
__END__
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

se obtiene la siguiente salida:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Driver1,2011:07:05 10:30:01,Manual,RUNNING,/33086.drv,

Driver2,2011:07:05 10:30:01,Disabled,DISABLED,/33003.drv,

Driver2,2011:07:05 10:30:01,Manual,STOPPED,/33027.drv,

Driver3,2011:07:05 10:30:01,Manual,RUNNING,/33125.drv,

Driver4,2011:07:05 10:30:01,Manual,RUNNING,/33118.drv,

Driver5,2011:07:05 10:30:01,Manual,RUNNING,/33182.drv,

Driver6,2011:07:05 10:30:01,Manual,RUNNING,/33065.drv,

Driver7,2011:07:05 10:30:01,Manual,RUNNING,/33045.drv,

Driver8,2011:07:05 10:30:01,Disabled,DISABLED,/134355.drv,

Driver9,2011:07:05 10:30:01,Disabled,DISABLED,/33220.drv,

Driver 10,2011:07:05 10:30:01,Manual,RUNNING,/32984.drv,Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Solo es una forma de hacerlo. Hay otras. Aquí hay otra un poco más corta, y más fácil de mantener si el fichero log cambia en el futuro:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
use autodie;
 
my $driver;
my @fields = ('Timestamp', 'Start Option', 'Status', 'TOA File', 'Size' );
my %fields;
 
open my $XML, q[<], 'code_26957.xml';
open my $OUT, q[>], 'code_26957.out';
 
while (my $linea = <$XML>) {
 
    if ($linea =~ /<driver name="(.*?)"/) {
        $driver = $1;                           # nuevo driver
        undef %fields;                          # reinicimos los campos
        next;
    }
 
    if ($linea =~ /<\/driver>/) {
        print $OUT join(q[,], $driver, @fields{@fields}), "\n";
        next;
    }
 
    if ($linea =~ /field="(.+?)">(.*?)</) {      
        $fields{$1} = $2;
    }
}
 
close   $XML;
close   $OUT;
 
__END__
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **Davide** » 2011-07-06 03:52 @202

Muchas gracias @explorer !!! Van como la seda. Escogí la segunda opción por si me modifican el XML en el futuro.

Prometo profundizar más en Perl y que en el futuro mis consultas no sean preguntar por un script completo.. y quién sabe si algún día responderé hasta las dudas de otros

Saludos.

Foro - Perl en Español

Tratamiento de log XML

Tratamiento de log XML

Publicidad

Re: Tratamiento de log XML

Re: Tratamiento de log XML

¿Quién está conectado?