XML解析使用XML ::的libxml

Question

這裏是我試圖解析屬性值對應於節點公司提取樣本數據：CID，名稱，符號，價值在公司節點的所有公司節點

<?xml version="1.0" encoding="UTF-8"?> 
<StockRecords xmlns="http://url1" 
       xmlns:ref="http://url2" 
       xmlns:xsi="http://url3"> 
    <Companies> 
    <Company> 
     <CID>123</CID> 
     <Name>Google</Name> 
     <Symbol>GOOG</Symbol> 
     <Value>1234</Value> 
    </Company> 
    </Companies> 
</StockRecords> 

以下是我試過的兩個變體。 變體1

use XML::LibXML; 

my $filename = "test.xml"; 
my $dom = XML::LibXML->load_xml(location => $filename); 

foreach my $sample ($dom->findnodes('/Companies/Company')) { 

    print Dumper($sample); 
    last; 
} 

變體2：由於有參與它，XPathContext被指定的命名空間。

use XML::LibXML; 

my $filename = "test.xml"; 
my $parser = XML::LibXML->new(); 
my $xmldoc = $parser->parse_file($filename); 

my $root = $xmldoc->getDocumentElement; 

my @l = $root->getElementsByTagName('StockRecords'); 

my $xc = XML::LibXML::XPathContext->new($root); 

$xc->registerNs("ns1", "http://url1"); 
$xc->registerNs("ref", "http://url2"); 
$xc->registerNs("xsi", "http://url3"); 

我無法提取節點的任何屬性的數據。我看了其他答案，LibXML文檔仍然存在一些缺失。請幫我指點一下。謝謝

Answer 1

use strict; 
use warnings; 
use feature qw(say); 

use XML::LibXML    qw(); 
use XML::LibXML::XPathContext qw(); 

my $doc = XML::LibXML->load_xml(location => $ARGV[0]); 

my $xpc = XML::LibXML::XPathContext->new(); 
$xpc->registerNs(ns1 => "http://url1"); 

for my $company_node ($xpc->findnodes("/ns1:StockRecords/ns1:Companies/ns1:Company", $doc)) { 
    say $xpc->findvalue("ns1:CID", $company_node); 
    say $xpc->findvalue("ns1:Name", $company_node); 
}