XML parsing using XML::DOM

jkm

Hi guys,
I want to traverse a XML file and would like to print value of every node and the name of node. I tried this with XML:OM, XML::Twig and XML:arser using event handle and able to achive this XMl::Twig and XML:arser but with XML:OM it doesnt display me the required results.

Please see the script/xml/results below.

use XML:OM;

my $infile = shift;
my $dom_parser = new XML:OM:arser; # create a parser object
my $doc = $dom_parser->parsefile( $infile ); # make it parse a file

my $paras = $doc->getElementsByTagName( "note" );
for( my $i = 0; $i < $paras->getLength; $i++ ) {
my $para = $paras->item( $i );
my @children = $para->getChildNodes;

foreach my $node ( @children ) {
if( $node->getNodeType eq TEXT_NODE ){
my $tmp= $node->getData;
my $tmp= $node->getNodeValue;

my $val = $node->getNodeName;
print "\n Text:: $val :: $tmp";

}elsif ( $node->getNodeType eq ELEMENT_NODE ){
my $tag= $node->getNodeName;
my $val=$node->getNodeValue;
print "\n Element : $tag :: $val";
}
}
}

test xml file

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<mail>
<note time="12:03:46">
<to>Tove</to>
<from>Jani</from>
<heading>Reminder</heading>
<body>Don't forget me this weekend!</body>
</note>
</mail>

result ::

C:\>perl test.pl test.xml

Text:: #text ::

Element : to ::
Text:: #text ::

Element : from ::
Text:: #text ::

Element : heading ::
Text:: #text ::

Element : body ::
Text:: #text ::

C:\>

Why I the value of text field is empty.

I tried couple of ways on this .. getValue,getNodeValue,getData or print to string etc but nothing helps ?

Please help me to solve this mystery

jkm

Got it work after tweaking it little

Here comes the code snippet ... I found this to be little difficult in XML:OM becasue we need to take care of node type ... ELEMENT_NODE or TEXT_NODE or CDATA etc ...let me know if you have some simple loop 2-3 lines to for loop to parse a XML files ... :-)

use XML:OM;

my $dom_parser = new XML:OM:arser; # create a parser object
my $doc = $dom_parser->parsefile( "C:\\test.xml" ); # make it parse a file

my $paras = $doc->getElementsByTagName( "note" );
for ( my $i=0; $i < $paras->getLength ; $i++) {
my $para = $paras->item($i);
foreach my $node ($para->getChildNodes) {

if ( $node->getNodeType eq ELEMENT_NODE ) {
my @children=$node-&gt;getChildNodes();
parseChildNodes(@children);
}
}
}

sub parseChildNodes {

my @child=@_;
foreach my $node ( @child) {
if ( $node->getNodeType eq ELEMENT_NODE ){
if ( $node->hasChildNodes ){
my @child=$node-&gt;getChildNodes;
my $tag= $node->getNodeName;
parseChildNodes(@child);
}else {
my $tag= $node->getTagName;
my $val=$node->getFirstChild()->getNodeValue;
}
}elsif ( $node->getNodeType eq TEXT_NODE ) {
my $st = $node->getData;
my $element = $node->getParentNode;
print $element->getNodeName, " :: $st \n";
}
}
}