Generating .xml file after creating xml data from XML::LibXML

balajinagaraju has asked for the wisdom of the Perl Monks concerning the following question:

HI, I want to create a .xml file output after some post proccessing in my script and i am using XML::LibXML to do that , but it prints data as a string to the console. How do i get the output in an XML file?. I referred to XML::LibXML module documentation on CPAN and i din't find anything about this. Can anyone suggest how i can generate a .xml file. Below is what i am doing.

    my $doc1 = XML::LibXML::Document->new('1.0', 'utf-8');
        
        my $root = $doc1->createElement("TestSummary");
        $root->setAttribute('Test'=> 'Sprint12');
        
        my %tags = (
            resultcount => $resultcount,
            testcasecount => $testcasecount,
        );
        
        for my $name (keys %tags) {
            my $tag = $doc1->createElement($name);
            my $value = $tags{$name};
            $tag->appendTextNode($value);
            $root->appendChild($tag);
        }
        
        $doc1->setDocumentElement($root);
        print $doc1->toString();
[download]

Output is generated in the console as below

<?xml version="1.0" encoding="utf-8"?>
<TestSummary some-attr="some-value"><resultcount>7</resultcount><testc
+asecount>9</testcasecount></TestSummary>
[download]

The last statement is responsible to print it as a string but i want to generate an xml file from my output

Comment on Generating .xml file after creating xml data from XML::LibXML Select or Download Code

Replies are listed 'Best First'.
Re: Generating .xml file after creating xml data from XML::LibXML by hdb (Monsignor) on Apr 03, 2013 at 07:09 UTC
Instead of `print $doc1->toString();` [download] you do `open XML, ">some.xml"; print XML $doc1->toString(); close XML;` [download] UPDATE: there is also a toFH function according to the documentation of XML::LibXML: `# save open my $out, '>', 'out.xml'; binmode $out; # as above $doc->toFH($out); # or print {$out} $doc->toString();` [download]	[reply] [d/l] [select]
Re^2: Generating .xml file after creating xml data from XML::LibXML by balajinagaraju (Sexton) on Apr 03, 2013 at 08:39 UTC
Thanks for your response, your suggestion worked	[reply]
Re: Generating .xml file after creating xml data from XML::LibXML by Corion (Patriarch) on Apr 03, 2013 at 07:12 UTC
See open and print on how to print the output to a file instead of the console.	[reply]


Problems? Is your data what you think it is?
	PerlMonks