6

我有一个简单的 xml 文件，如下所示：

<?xml version="1.0" encoding="UTF-8" standalone="yes" ?>
<microplateDoc xmlns="http://moleculardevices.com/microplateML">
<camelids>
  <species name="Camelus bactrianus">
    <common-name>Bactrian Camel</common-name>
    <physical-characteristics>
      <mass>450 to 500 kg.</mass>
      <appearance>
  Blah blah blah
   </appearance>
    </physical-characteristics>   
  </species>
  </camelids>
 </microplateDoc>

我正在尝试使用以下 perl 脚本读取物种名称：

use XML::LibXML;

my $parser = XML::LibXML->new();
my $doc = $parser->parse_file('/Users/johncumbers/Documents/7_Scripts/Perl/XML_to_MySQL/simplified_camelids.xml');
my $xc = XML::LibXML::XPathContext->new( $doc->documentElement()  );
$xc->registerNs('ns', 'http://moleculardevices.com/microplateML');

#loop through to find species nodes
my @n = $xc->findnodes('*/species');  #was */species
foreach $nod (@n) {
    print "A: ".$nod->getAttribute("name")."\n";
    my @c = $nod->findnodes('./common-name');
    }

但我找不到任何节点。你能帮忙告诉我为什么它不工作吗？查找 perl 函数的最佳网站是什么，以便我自己尝试解决这个问题？我怎样才能让脚本告诉我它在做什么，因为目前的输出什么都没有。非常感谢。

4

1 回答 1

5

您已将名称空间前缀与文档相关联，但您的XPath语法不使用它。

my @n = $xc->findnodes('//ns:species');

应该做的工作。

没有前缀，您将无法匹配。此外，该*/species路径将仅匹配当前上下文中的子项（即文档的顶层）。使用//species将查找species文档中的所有元素。如果这对您不起作用（因为该元素出现在您不想匹配的文档中的其他上下文中），请使用

/*/*/ns:species

因为该元素是顶层的“曾孙”。

另一个XPath参考。

于 2010-01-17T00:24:33.433 回答