in reply to Re: 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

Thanks for your input. It's working partially. In case, if I want to add multiple test nodes based on user choice how can I do that. In this example, I can extract only one node based on XPath.

Also, I want to include suite node in the new.xml file.

  • Comment on Re^2: How to fetch a portion of a XML file to save it in another xml file

Replies are listed 'Best First'.
Re^3: How to fetch a portion of a XML file to save it in another xml file
by Your Mother (Archbishop) on Sep 06, 2013 at 14:27 UTC

    I do think it's time for you to start reading the XML::LibXML docs. See if you can at least get the multiple test nodes captured/found, it's quite a small adjustment. Post what you come up with and if you can't work it all out, I or someone will help you finish.

[reply]
Re^3: How to fetch a portion of a XML file to save it in another xml file
by Your Mother (Archbishop) on Sep 07, 2013 at 20:06 UTC

    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->removeChildNodes;

$suite->addChild($_) for @tests;

print $doc->serialize(1); # or $doc->toFile("new.xml")

    [download]
[reply]
[d/l]

      Superb.. :)

      Let me make a try and i'll get back to you :)

[reply]

In Section Seekers of Perl Wisdom