Perl XML::DOM

[jlord7040]

is there any way to write the xml data to a formated output, like the
standard tree structure for xlm.

when I append a record it slaps it at the end with any (CR) so the
whole think looks like one big line, below is a sample of the code:




$objXMLNodeList = $objXMLDoc->getElementsByTagName("title");

$objXMLNode = $objXMLDoc->createElement("list");
$objXMLNode->setAttribute ("link",$links);
$objXMLNode->setAttribute ("desc",$desc);


$objXMLDocElem = $objXMLDoc->getDocumentElement();
$objXMLDocElem->appendChild($objXMLNode);

print $objXMLDoc->toString;
$objXMLDoc->printToFile($file);


Thanks

 

[Paul Lalli]

is there any way to write the xml data to a formated output, like the
standard tree structure for xlm.

when I append a record it slaps it at the end with any (CR) so the
whole think looks like one big line

A cursory examination of the XML:OM docs doesn't reveal any obvious
formatting routine. However, have you considered using another module
to re-format the file once it's written?

http://search.cpan.org/~pip/XML-Tidy-1.2.54HJnFa/Tidy.pm

Paul Lalli