在Perl中执行XPath查询XML数据的最简单方法是什么？

Question

我正在寻找可能的最简单的方法，使用Perl中的XPath查询从XML结构中快速检索数据。

下面的代码结构说明想什么，我来实现：

my $xml_data = "<foo><elementName>data_to_retrieve</elementName></foo>"; 
my $xpath_query = "//elementName"; 
my $result_of_query = ... what goes here? ... 
die unless ($result_of_query eq 'data_to_retrieve'); 

显然TIMTOWTDI适用，但什么是做到这一点的最简单的方法？

Answer 1

XML :: LibXML并不容易，但是在所有其他方面都能跳动XML :: XPath。

use XML::LibXML; 
my $xml_data = XML::LibXML->load_xml(
    string => '<foo><elementName>data_to_retrieve</elementName></foo>' 
); 
die unless 'data_to_retrieve' eq 
    $xml_data 
     ->findnodes('//elementName') 
     ->get_node(1) 
     ->textContent; 

Answer 2

use XML::XPath; 
use XML::XPath::XMLParser; 

my $xp = XML::XPath->new(xml => $xml_data); 

my $result_of_query = $xp->find('//elementName'); # find all nodes that match 

foreach my $node ($result_of_query->get_nodelist) { 
     #Do someting 
}