Re^3: How to fetch a portion of a XML file to save it in another xml file


P is for Practical
	PerlMonks

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 ( [id://1052841]=note: print w/replies, xml )

Need Help??

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

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

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

Comment on Re^3: How to fetch a portion of a XML file to save it in another xml file Download Code

Replies are listed 'Best First'.
Re^4: How to fetch a portion of a XML file to save it in another xml file by tarunmudgal4u (Sexton) on Sep 13, 2013 at 05:40 UTC
Superb.. :) Let me make a try and i'll get back to you :)	[reply]

In Section Seekers of Perl Wisdom

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://1052841]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others learning in the Monastery: (7)

As of 2024-04-24 10:25 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Today I Learned

Voting Booth^?

No recent polls found