如何从Perl中的XML :: LibXML访问属性和元素?

时间:2010-01-10 23:43:39

标签: perl xpath namespaces libxml2 xml-libxml

我无法在Perl中使用XML::LibXML包来理解/使用名称空间。我可以成功访问元素但不能访问属性。我有以下代码访问XML文件(http://pastebin.com/f3fb9d1d0)。

my $tree = $parser->parse_file($file); # parses the file contents into the new libXML object.
my $xpc = XML::LibXML::XPathContext->new($tree); 
$xpc->registerNs(microplateML => 'http://moleculardevices.com/microplateML');   
然后,我尝试访问名为common-name的元素和名为name的属性。

foreach my $camelid ($xpc->findnodes('//microplateML:species')) {
  my $latin_name = $camelid->findvalue('@name');   
  my $common_name = $camelid->findvalue('common-name');  
  print "$latin_name, $common_name" ;
}

但只有拉丁语名称(@name)正在打印出来,而通用名称则不会。我做错了什么,如何才能打印出通用名称?

@name在这种情况下做了什么?我认为它是一个数组,并且属性应该放在一个数组中,因为可以有多个,但是元素(比如common-name)不应该是因为应该只有一个?

我一直关注这里的示例:http://www.xml.com/pub/a/2001/11/14/xml-libxml.html 在这里:http://perl-xml.sourceforge.net/faq/#namespaces_xpath,并试图让他们的示例camel脚本使用我的命名空间,因此奇怪的命名空间。

1 个答案:

答案 0 :(得分:7)

确保XML文件有效,然后使用$node->getAttribute("someAttribute")访问属性。

@name是一个属性名称。您可以在findnodes()中使用它来指定具有给定属性集的元素。例如。像这样的道路:

//camelids/species[@name="Camelus bactrianus"]/

这是一个简单/人为的例子:

#!/usr/bin/perl -w
use XML::LibXML;

my $parser = XML::LibXML->new();
my $doc = $parser->parse_file('/Users/castle/Desktop/animal.xml');

my $xc = XML::LibXML::XPathContext->new( $doc->documentElement()  );
$xc->registerNs('ns', 'http://moleculardevices.com/microplateML');

my @n = $xc->findnodes('//ns:species');
foreach $nod (@n) {
    print "A: ".$nod->getAttribute("name")."\n";

    my @c = $xc->findnodes("./ns:common-name", $nod);
    foreach $cod (@c) {
        print "B: ".$cod->nodeName;
        print " = ";
        print $cod->getFirstChild()->getData()."\n";
    }
}

输出是:

perl ./xmltest.pl 
A: Camelus bactrianus
B: common-name = Bactrian Camel
相关问题