Foro - Perl en Español

por **teco000** » 2009-09-16 17:16 @761

Saludos, con una consulta: tengo un programa que recibe un XML, mi pregunta es ¿cómo puedo manejar un error en XML::Simple? Para que valide solo una trama. Ejemplo.

El xml correcto es:

Sintáxis: [ Descargar ] [ Ocultar ]

Using xml Syntax Highlighting

<recarga>
<plastico>4234567890123456</plastico>
<fechaven>200906</fechaven>
<documento>123456789</documento>
<moneda>320</moneda>
<valor>56.78</valor>
</recarga>
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

El xml incorrecto es que venga más de una solicitud. Ejemplo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using xml Syntax Highlighting

<recarga>
<plastico>4234588890123333</plastico>
<fechaven>200906</fechaven>
<documento>123456789</documento>
<moneda>320</moneda>
<valor>56.78</valor>
</recarga>
<recarga>
<plastico>4234567812345678</plastico>
<fechaven>200906</fechaven>
<documento>123456789</documento>
<moneda>320</moneda>
<valor>156.78</valor>
</recarga>
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

El código que actualmente tengo no sé dónde decirle que haga la validación de que solo sea una solicitud y termine el programa. No sé si me pueden ayudar.

Mi código es el siguiente:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$xmls = new XML::Simple;
$data = $xmls->XMLin($data, KeyAttr => 1 );
$moneda=$data->{moneda};
$plastico=$data->{plastico};
$documento=$data->{documento};
$fechaven=$data->{fechaven};
$valor=$data->{valor};
$data="$moneda|$plastico|$documento|$fechaven|$valor";
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

A mi el que más me gusta es RelaxNG que es a la vez simple y potente, sobre todo con la sintaxis compacta que es más amigable que escribir XML a pelo.

Una vez que tengas definido tu esquema, necesitas buscar un módulo de Perl que sea capaz de validar tus documentos contra él. En CPAN podrás encontrar varios y en la FAQ del proyecto XML-Perl también podrás encontrar información sobre el asunto.

Yo personalmente uso XML::LibXML (que es un wrapper de la librería libxml2), que soporta la validación con DTD, W3C Schema y RelaxNG... yo de hecho, ya hace tiempo que para procesar XML uso únicamente esta módulo, porque XML::Simple me resulta demasiado limitado.

por **explorer** » 2009-09-17 04:08 @214

XML::Simple se morirá en el caso de que el xml sea no válido. Según la documentación de XML::Simple, en la sección ERROR HANDLING, lo que se puede hacer es poner un eval{} para capturar esos errores:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
 
use XML::Simple;
 
 
my $data = q(
    <recarga>
        <plastico>4234588890123333</plastico>
        <fechaven>200906</fechaven>
        <documento>123456789</documento>
        <moneda>320</moneda>
        <valor>56.78</valor>
    </recarga>
    <recarga>
        <plastico>4234567812345678</plastico>
        <fechaven>200906</fechaven>
        <documento>123456789</documento>
        <moneda>320</moneda>
        <valor>156.78</valor>
    </recarga>
);
 
my $xmls = XML::Simple->new;
my $xml;
 
eval {
    $xml = $xmls->XMLin( $data, KeyAttr => 1 );
};
 
die "ERROR en la validación del xml: $!\n"
    if $@;
 
my $moneda    = $xml->{moneda   };
my $plastico  = $xml->{plastico };
my $documento = $xml->{documento};
my $fechaven  = $xml->{fechaven };
my $valor     = $xml->{valor    };
 
print "$moneda|$plastico|$documento|$fechaven|$valor\n";
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **teco000** » 2009-09-17 09:41 @445

Gracias por la ayuda. Problema resuelto.

Foro - Perl en Español

Cómo manejar un error con XML::Simple

Cómo manejar un error con XML::Simple

Publicidad

Re: Como manejar un error con XML::Simple

Re: Como manejar un error con XML::Simple

Re: Cómo manejar un error con XML::Simple

¿Quién está conectado?