##
use strict;
use XML::LibXML;
my $parser = XML::LibXML->new;
my $doc = $parser->parse_file("minimal.xml");
my @vol = $doc->findnodes(q {/descendant::Volume[@VolumeCategory="6444"]});
foreach my $element (@vol) {
print $element->parentNode->nodeName;
print $element->parentNode(), $element->nodeValue(), "\n";
}
####
Job
0.063
2.2
2.2
Test
0.063
0.063
2.2
####
Job
0.063
2.2
2.2
Test
0.063
0.063
2.2