use warnings;
use strict;
use XML::LibXML;
my @files = ("file1.xml", "file2.xml", "file3.xml");
my $outfile = "result.xml";
my $newdom = XML::LibXML::Document->new('1.0', 'UTF-8');
my $root = $newdom->createElement('testsuites');
$newdom->setDocumentElement($root);
for my $file (@files) {
my $dom = XML::LibXML->load_xml(location => $file);
for my $node ( $dom->findnodes('//testsuite') ) {
$node->{name} =~ s/test_suite_name_/tsname_/;
$root->appendChild($node);
}
}
$newdom->toFile($outfile, 1);
####
##
##