Как отображать предков с XML :: Twig?

Question

Я не знаю, как отобразить ancestors_or_self одного Элемента.

Вот сообщение об ошибке я получаю при использовании метода ancestors_or_self(): Невозможно вызвать метод «печать» без упаковки или объекта ссылки на ххом

#!/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;