Question

my $doc = $parser->parse_string( $res->content );
my $root = $doc->getDocumentElement;
my @objects = $root->getElementsByTagName('OBJECT');

foreach my $object ( @objects ){
my $name = $object->firstChild;
print "OBJECT = " . $name . "\n";}


OUTPUT is:
OBJECT = XML::LibXML::Text=SCALAR(0x262e170)
OBJECT = XML::LibXML::Text=SCALAR(0x2ee4b00)
OBJECT = XML::LibXML::Text=SCALAR(0x262e170)
OBJECT = XML::LibXML::Text=SCALAR(0x2ee4b00)

任何人都可以解释为什么print打印出这样的$name属性值？当我使用函数getAttribute并使用几乎相同的代码时，为什么它打印正常？

Answer 1

getAttribute返回一个属性，而firstChild返回文本节点，元素，处理指令或注释。

您看到的是打印对象的常规Perl方式：它打印其类和地址。您的XML::LibXML版本似乎有点古老，最新版本overload字符串化，代码生成实际的文本节点。

#!/usr/bin/perl
use warnings;
use strict;

use XML::LibXML;

my $doc = 'XML::LibXML'->load_xml( string => << '__XML__');
<root>
    <OBJECT name="o1">hello</OBJECT>
</root>
__XML__

my @objects = $doc->getElementsByTagName('OBJECT');

for my $object (@objects) {
    print 'OBJECT = ', $object->firstChild, "\n";
}

输出：

OBJECT = hello

在旧版本中，需要调用nodeValue或data方法。

print 'OBJECT = ', $object->firstChild->data, "\n";

使用XML :: LibXML打印输出

1 个答案: