in reply to Re^2: How to fetch a portion of a XML file to save it in another xml file
in thread How to fetch a portion of a XML file to save it in another xml file
Oh, ok! You wore me out and I wrote it yesterday and there's no reason for it to die of bitrot in some corner of my disk. I do hope you will try to pick up a little of it and not just get others to write it for you.
my $doc = XML::LibXML->new->load_xml( string => $before );
my @tests = $doc->findnodes('/suite/test[@name="Import Test Suite"]');
my $suite = $doc->getDocumentElement;
$suite->addChild($_) for @tests;
print $doc->serialize(1); # or $doc->toFile("new.xml")