Foro - Perl en Español

por **vicca** » 2012-10-26 03:25 @184

¡Hola de nuevo!

Necesito ordenar los nodos de un archivo XML para que se adapten a un orden determinado por un XSD.
Por ejemplo, si tengo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using xml Syntax Highlighting

<perro>
  <patas>
    <cantidad>4</cantidad>
  </patas>
  <orejas>
    <cantidad>2</cantidad>
  </orejas>
  <cabeza>
    <cantidad>1</cantidad>
  </cabeza>
  <cola>
    <cantidad>1</cantidad>
  </cola>
</perro>
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Y necesitaría que apareciese así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using xml Syntax Highlighting

<perro>
  <cabeza>
    <cantidad>1</cantidad>
  </cabeza>
  <orejas>
    <cantidad>2</cantidad>
  </orejas>
  <patas>
    <cantidad>4</cantidad>
  </patas>
  <cola>
    <cantidad>1</cantidad>
  </cola>
</perro>
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

¿Cómo podría hacerlo? Porque estoy bastante perdido con esto...

Muchas gracias.

#!/usr/bin/perl
use XML::Simple;
 
my $xml_ref = XMLin('code_32753.xml', KeepRoot => 1, NoAttr => 1);
 
print XMLout($xml_ref, KeepRoot => 1, NoAttr => 1);
 
sub XML::Simple::sorted_keys {
    my($self, $name, $hashref) = @_;
 
    if ($name eq 'perro') {
        return qw( cabeza orejas patas cola );
    }
    else {
        return sort keys %$hashref;
    }
}
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Esto es un poco burdo, pero funciona: leemos el XML y lo volvemos a escribir, pero en la operación de salida, sobreescribimos la función que devuelve el orden de las claves del paquete XML::Simple, de tal forma que salen las claves en el orden que queremos cuando estamos en el nodo 'perro', y en el orden alfabético en caso de los demás.

Foro - Perl en Español

Cambiar orden nodos XML

Cambiar orden nodos XML

Publicidad

Re: Cambiar orden nodos XML

¿Quién está conectado?