Hola de nuevo,
Luego de haber corregido los errores sintacticos, gracias de nuevo Rafael,
estoy probando el script y esta fallando :
$ perl modify_xml.pl
Working on ./BAAHeatWidget_15022011_update/BAAHeatWidget_asset.xml
Working on ./BloomberWidget_09022011/BloomberWidget_asset.xml
Working on ./BloomberWidget_11022011_update/BloomberWidget_asset.xml
Working on ./BookatableWid_09022011/BookatableWid_asset.xml
Ran out of memory for input buffer at /usr/lib/perl5/XML/Parser/Expat.pm
line 469.
at modify_xml.pl line 18
at modify_xml.pl line 18
Linea 18 : my $t = XML::Twig->new(pretty_print =>
'indented')->parsefile($file);
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 :
sub modify_xml {
foreach my $file(@files) {
print "Working on ".$file."\n";
my $t = XML::Twig->new(pretty_print => 'indented')->parsefile($file);
my $root = $t->root;
....
}
find(sub { push (@files, $File::Find::name) if -f and /\.xml$/},@dirs);
&modify_xml(@files);
Gracias de nuevo, de antemano :D
_______________________________________________
Madrid-pm mailing list
[email protected]
http://mail.pm.org/mailman/listinfo/madrid-pm
