<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>El detalle esta en que luego hay hash de hashes de hashes dentro del XML. Miren <a href="http://pastebin.com/muT2zH9E">http://pastebin.com/muT2zH9E</a><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>