如何使用XML :: Twig显示祖先？

Question

我不知道如何显示一个元素的ancestors_or_self。

以下是错误信息使用方法ancestors_or_self（）时，我得到： 不能在XXXX上调用方法“打印”没有包装或对象引用

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

my $t= XML::Twig->new; 
my $v= XML::Twig::Elt->new; 

$v= $t->first_elt('[@id]'); 
$v->print; 
print ("\n\n"); 
$v->ancestors_or_self->print; 

感谢您的帮助Perl XML :: Twig

Answer 1

ancestors_or_self返回一个列表 - 假设你想要的路径元素，你也想->path不->print。而作为->path回报的路径，你将不得不做这样的事情：

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

my $t= XML::Twig->new; 
my $v= XML::Twig::Elt->new; 

$v= $t->first_elt('[@id]'); 
print $v->path . "\n"; 
print ("\n\n"); 
print $_->path . "\n" foreach $v->ancestors_or_self; 

Answer 2

这是因为ancestors_or_self返回一个列表，并且您不能调用列表方法。而不是使用这样的：

$_->print for $v->ancestors_or_self;