<font face="tahoma,sans-serif">Entiendo y justamente estaba escribiendo algo usando XML::LibXML esta genial en serio. Vere lo de Twig quiza me sirva mas. Gracias! <br></font><br><div class="gmail_quote">2011/4/27 Salvador Fandino <span dir="ltr"><<a href="mailto:sfandino@yahoo.com">sfandino@yahoo.com</a>></span><br>

<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;"><div><div style="font-family:Courier New,courier,monaco,monospace,sans-serif;font-size:10pt">Para modificar un XML al vuelo, a lo mejor te interesa más utilizar XML::Twig o directamente con una transformación XSLT, sin usar Perl.<br>

<br>A mi XML::Simple no me gusta nada, creo que se pasa tratando de simplificar las cosas y siempre me decanto por XML::LibXML aunque es cierto que resulta más laborioso (pero lo compensa con el soporte para RelaxNG).<br>

<br>- Salva<br><div><br></div><div style="font-family:Courier New, courier, monaco, monospace, sans-serif;font-size:10pt"><br><div style="font-family:times new roman, new york, times, serif;font-size:12pt"><font face="Tahoma" size="2"><hr size="1">

<b><span style="font-weight:bold">From:</span></b> Francisco Rivas <<a href="mailto:franciscojrivash@gmail.com" target="_blank">franciscojrivash@gmail.com</a>><br><b><span style="font-weight:bold">To:</span></b> Lista de correo de Madrid
 Perl Mongers <<a href="mailto:madrid-pm@pm.org" target="_blank">madrid-pm@pm.org</a>><br><b><span style="font-weight:bold">Sent:</span></b> Wed, April 27, 2011 6:39:16 PM<br><b><span style="font-weight:bold">Subject:</span></b> [Madrid-pm] Parsear un XML<br>

</font><div><div></div><div class="h5"><br>
<font face="tahoma,sans-serif">Hola *,<br><br>Quiero hacer un script para modificar un XML y he encontrado varios modulos en el CPAN que lo hacen XML::LibXML y XML::Simple por ejemplo. El detalle es que la forma del XML que tengo es biiiienn extrana :P, puesto que tiene varios niveles. Entonces lo que quiero hacer con el XML es quitarle algunos elementos y modificar otros. Estoy utilizando por el momento XML::Simple, soy bastante novato en Perl y por eso recurro a la lista.<br>



<br>#!/usr/bin/perl<br><br>use strict;<br>use warnings;<br><br>use XML::Simple;<br>use Data::Dumper;<br>$Data::Dumper::Indent = 3;<br><br>my $fh = 'BookatableWid_asset.xml';<br>my $tree = XMLin($fh);<br>delete $tree->{protocolVersion};<br>



print Dumper($tree);<br><br>En esto que llevo hecho, que es una tonteria al final, solo elimino una de las 'keys' que me interesa.<br><br><span>El detalle esta en que luego hay hash de hashes de hashes dentro del XML. Miren <a href="http://pastebin.com/muT2zH9E" target="_blank">http://pastebin.com/muT2zH9E</a></span><br>



<br>Entonces necesito iterar en esa estructura para buscar las 'keys' que quiero modificar o eliminar incluso. <br><br>Algunas recomendacion?. usar otro modulo?, utilizar ForceArray o ForceContent, GroupTags o algo asi?<br>



<br>Gracias de antemano. Muy buena tarde. :D<br></font>
</div></div></div></div>



</div></div><br>_______________________________________________<br>
Madrid-pm mailing list<br>
<a href="mailto:Madrid-pm@pm.org">Madrid-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/madrid-pm" target="_blank">http://mail.pm.org/mailman/listinfo/madrid-pm</a><br></blockquote></div><br>