代码之家 › 专栏 › 技术社区 › madmatrix

使用XML::LibXML解析XML

xml-libxml xml-namespaces perl xml

madmatrix · 技术社区 · 9 年前

<?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>

以下是我尝试的两种变体。

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文档仍然缺少一些东西。请帮我指点一下。谢谢

1 回复 | 直到 9 年前

ikegami Gilles Quénot 9 年前

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);
}

推荐文章