Foro - Perl en Español

por **vicca** » 2012-04-16 03:49 @200

¡Hola!

Estoy intentando comparar un documento con una plantilla XML predefinida utilizando Perl.
Soy un poco novato con este lenguaje así que me gustaría que me recomendasen cómo hacerlo.
Había pensado en utilizar expresiones regulares, pero lo veo demasiado complicado.
¿Habría alguna forma de hacerlo más sencilla?

Muchas gracias.

¡Hola!

Explico un poco más la situación: como datos de un programa interno, el usuario tiene que generar una descripción en lenguaje XML. Yo lo que quiero es comprobar que la semántica de lo que escribe el usuario es correcta.

Por ejemplo, lo escrito en una rama concreta tiene que ser una opción de las permitidas (dependiendo de en qué rama sea...). Y todas esas restricciones vienen expresadas en una especie de plantilla XML.

No sé si me he explicado bien... Aún así, en un par de días intento poner un ejemplo ya realista de la situación.

Muchas gracias.

por **explorer** » 2012-04-18 10:49 @492

Una solución para lo que quieres es: definir la plantilla con XSD, y luego, con el módulo XML::Validator::Schema, validar si el XML es conforme a ese XSD.

Por ejemplo, tenemos esta plantilla:

Sintáxis: [ Descargar ] [ Ocultar ]

Using xml Syntax Highlighting

<?xml version="1.0" ?>
<xsd:schema xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:sql="urn:schemas-microsoft-com:mapping-schema">
    <xsd:element name="elementname">
        <xsd:complexType>
            <xsd:sequence>
                <xsd:element name="field1" type="xsd:integer" minOccurs="0" maxOccurs="1"/>
                <xsd:element name="field2" type="xsd:string" minOccurs="0" maxOccurs="1"/>
            </xsd:sequence>
        </xsd:complexType>
    </xsd:element>
</xsd:schema>
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Entonces se puede crear un programa que valide el xml:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use XML::SAX::ParserFactory;
use XML::Validator::Schema;
 
$validator = XML::Validator::Schema->new(file => 'foo.xsd');
$parser    = XML::SAX::ParserFactory->parser(Handler => $validator);
eval { $parser->parse_uri('foo.xml') };
die "File failed validation: $@" if $@
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

También se puede hacer con la biblioteca LibXML:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;
use warnings;
 
use XML::LibXML;
 
my $xml = 'Export.xml';
my $xsd = 'export.xsd';
 
if ( my $error = validate_xml_against_xsd($xml, $xsd) ) {
    die "Validation failed: $error\n";
}
 
sub validate_xml_against_xsd {
    my ($xml, $xsd) = @_;
 
    my $schema = XML::LibXML::Schema->new(location => $xsd);
    my $parser = XML::LibXML->new;
 
    my $doc = $parser->parse_file($xml);
    eval { $schema->validate( $doc ) };
 
    if ( my $ex = $@ ) {
        return $ex;
    }
    return;
}
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Y una vez validado, sacar la información con XML::DOM.

Sacado de aquí y aquí.

por **vicca** » 2012-04-19 13:48 @616

Muchas gracias.

Con esto creo que consigo solucionar una parte del problema, pero no todo.

Me explico: también me gustaría restringir los valores que pueden tomar los atributos y creo que eso no se puede hacer con el XML Schema.

Pongo un ejemplo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

<vm name="r1" type="quagga" subtype="lib-install">
  <hostname>r1</hostname>
  <password>xxxx</password>
  <network area="0.0.0.0">10.0.0.0/16</network>
  <passive_if>eth1</passive_if> 
  <binaries>
    <zebra>/usr/lib/quagga/zebra</zebra>
    <ospfd>/usr/lib/quagga/ospfd</ospfd>
  </binaries>
</vm>
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Por ejemplo, para el elemento "r1", me gustaría que el tipo sólo pudiese tomar como valor "quagga", "libvirt" o "uml".

¿Cómo podría hacerlo?

Muchas gracias de nuevo.

por **explorer** » 2012-04-19 13:53 @620

Yo no soy un experto en XSD, pero consultando su página de la Wikipedia, dice que con 'restriction' se pueden restringir los valores que puede usar.

por **vicca** » 2012-04-23 06:18 @304

Lo he estado mirando y me sirve bastante.
Sólo quedan un par de cosillas por retocar y darle vueltas a ver cómo lo soluciono.

Muchas gracias por la ayuda.

Foro - Perl en Español

Comparar documento con plantilla XML

Comparar documento con plantilla XML

Publicidad

Re: Comparar documento con plantilla XML

Re: Comparar documento con plantilla XML

Re: Comparar documento con plantilla XML

Re: Comparar documento con plantilla XML

Re: Comparar documento con plantilla XML

Re: Comparar documento con plantilla XML

¿Quién está conectado?