Foro - Perl en Español

por **SJG3226X** » 2016-12-07 03:42 @196

Buenos días,

Necesito leer un fichero de log en XML (soap.log). De este fichero, necesito:

1. que busque los errores 500: <codigo>-500</codigo>

2. que si encuentra lo anterior se quede con el párrafo que va desde <GBPFault> hasta </GBPFault>

3. que si se cumplen las dos premisas anteriores, que capture como variables el <level>X</level>, el <message>XXXX </message> y el <appname>XXX </appname>.

Además me surge la duda de cómo hacer algún tipo de "marca de agua" para que no saque dos errores iguales, ya que el script lo metería en el Omnibus para que cada 5 minutos leyera el log.

Estoy leyendo en este foro y en otros y la verdad es que encuentro bastantes cosas, pero me está costando mucho compilarlas todas hasta dar con cubrir todas las necesidades para generar correctamente estas alarmas.

Sintáxis: [ Descargar ] [ Ocultar ]

Using xml Syntax Highlighting

<GBPFault>
    <Errors>
        <message>Unable to compose the document. Please check EWS folders¦javax.xml.ws.soap.SOAPFaultException: Engine execution error.  Return code:  12</message>
        <appname>OnlineComposition</appname>
        <appid>GBP.0609_BM.BTT_CommonEAR</appid>
        <codigo>-500</codigo>
        <level>ERROR</level>
       <component>OnlineComposition</component>
        <method>Engine execution error.  Return code:  12</method>
        <rootcase>ARQ Unable to compose the document. Please check EWS folders¦javax.xml.ws.soap.SOAPFaultException: Engine execution error.  Return code:  12</rootcase>
        <operation>FI00002.pub/TP0009O</operation>
        <idSesion>3IJLy_aZd8bHNUEADZJ7uTR</idSesion>
        <idPeticion>A91E18AC3EEB450A9F1762CAA5C6D794</idPeticion>
        <usuario>PARR2002</usuario>
        <idTerminalFisico></idTerminalFisico>
        <timestamp>2016-10-19 14:28:02.669</timestamp>
        <type>DESCONOCIDO</type>
    </Errors>
</GBPFault>
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Lo que no sabemos es si el soap.log se compone de uno o varios registros <GBPFault> como el que nos muestras.

Para el punto 1 te vale con usar una expresión regular, pero claro, depende luego para el punto 2 saber si todo el soap.log se compone de uno o más registros <GBPFault>.

Este es un código que intenta resolver el problema cuando solo hay un registro en todo el archivo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/env perl
use v5.14;
use File::Slurp;
 
my $log = read_file('soap.log');
 
if ($log =~ m{(<GBPFault>(.+?)<codigo>-500</codigo>(.+?)</GBPFault>)}s) {
    my $seccion = $1;
 
    my %variables;
    for my $variable (qw(level message appname)) {
 
        if ($seccion =~ m{<$variable>(.*?)</$variable>}) {
            $variables{$variable} = $1;
        }
    }
 
    use Data::Dumper;
    say Dumper \%variables;
}
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

La salida es:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

$VAR1 = {

          'message' => 'Unable to compose the document. Please check EWS folders¦javax.xml.ws.soap.SOAPFaultException: Engine execution error.  Return code:  12',

          'appname' => 'OnlineComposition',

          'level' => 'ERROR'

        };Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Leer un log en XML, extraer un párrafo en variables

Leer un log en XML, extraer un párrafo en variables

Publicidad

Re: Leer un log en XML, extraer un párrafo en variables

¿Quién está conectado?