Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

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

by Your Mother (Chancellor)
on Sep 07, 2013 at 20:06 UTC ( #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")


Comment on Re^3: How to fetch a portion of a XML file to save it in another xml file
Download Code
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 :)

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1052841]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (12)
As of 2015-07-03 16:13 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (54 votes), past polls