my $doc=XML::DOM::Document->new;
my $parser=XML::DOM::Parser->new;
$doc=$parser->parse($output);
my $root=$doc->getDocumentElement;
if ($root->hasChildNodes())
{
my @children = $root->getChildNodes;
foreach my $node(@children)
{
print $node->getNodeName;
if( $node->getNodeName eq "Result")
{
my @child=$node->getChildNodes;
foreach my $value(@child)
{
if($value->getNodeName eq "Name")
{
$report .=qq|$value->getNodeValue
|;
my $val=$value->getNodeValue;
print $val;
}
}
}
}
####
Can't locate object method "getnodevalue" via package "XML::DOM::Element"
####