XML::Twig may be a good candidate, if you use its simplify() method, then the changes against the XML::Simple based code may be fairly small. You'll just replace the outmost loop by a subroutine definition and instead of parsing the whole file and then looping, you'll tell XML::Twig to call that subroutine for each of those tags. Something like (PSEUDOCODE!):
my $xml = XMLin($file);
for my $foo (@{$xml->{foo}) {
#and now we process the $foo
}
=>
$xmltwig->parse( xml_roots => {
'foo' => \&process_foo
});
sub process_foo {
my ($xmltwig, $foo_obj) = @_;
$foo = $foo_obj->simplify();
#and now we process the $foo
}
(It's apparent that I hadn't used XML::Twig for years :-)
Another option is to use XML::Rules. It can tweak and simplify the generated structure as the file is parsed and like the XML::Twig, it allows you to execute code once a "twig" (a tag with all subtags and content) is fully parsed. See some of the examples on perlmonks or included with the module.
Jenda
Enoch was right!
Enjoy the last years of Rome.
|