use strict;
use XML::LibXML;
# data source
my $xml_filename = "xml/data.xml";
my $parser = XML::LibXML->new;
my $doc = $parser->parse_file($xml_filename);
my $xpath = "//word/entry[\@src=\"pr\"]/..";
my @words = $doc->findnodes($xpath);
foreach my $word (@words) {
print $word->findvalue("\@id");
print "\n";
}
XML parsing with Perl using XPath