<font face="tahoma,sans-serif">Hola de nuevo, <br><br>Luego de haber corregido los errores sintacticos, gracias de nuevo Rafael, estoy probando el script y esta fallando :<br><br>$ perl <a href="http://modify_xml.pl">modify_xml.pl</a><br>

Working on ./BAAHeatWidget_15022011_update/BAAHeatWidget_asset.xml<br>Working on ./BloomberWidget_09022011/BloomberWidget_asset.xml<br>Working on ./BloomberWidget_11022011_update/BloomberWidget_asset.xml<br>Working on ./BookatableWid_09022011/BookatableWid_asset.xml<br>

Ran out of memory for input buffer at /usr/lib/perl5/XML/Parser/Expat.pm line 469.<br> at <a href="http://modify_xml.pl">modify_xml.pl</a> line 18<br> at <a href="http://modify_xml.pl">modify_xml.pl</a> line 18<br><br>Linea 18 : my $t = XML::Twig->new(pretty_print => 'indented')->parsefile($file);<br>

<br>Esta linea esta dentro de un foreach loop, dentro de un sub que recibe como parametro un array con todos los nombres de los archivos que quiero modificar :<br><br>sub modify_xml {<br>  foreach my $file(@files) {<br>    print "Working on ".$file."\n";<br>

    my $t = XML::Twig->new(pretty_print => 'indented')->parsefile($file);<br><br>    my $root = $t->root;<br>....<br>}<br><br>find(sub { push (@files, $File::Find::name) if -f and /\.xml$/},@dirs);<br>

&modify_xml(@files);<br><br>Gracias de nuevo, de antemano :D<br></font>