วิธีใช้ XML :: XPath เพื่อรับโหนดพาเรนต์

ตามที่ Chas กล่าวไว้ คุณไม่ควรสร้างวัตถุ XML::XPath ที่สอง (เอกสารกล่าวถึงสิ่งนี้ด้วย) คุณสามารถส่งผ่านบริบทเป็นพารามิเตอร์ที่สองของเมธอด find* หรือเพียงแค่เรียกเมธอดบนโหนดบริบท เหมือนที่คุณทำเพื่อรับ $FooName

นอกจากนี้คุณยังมีการเรียกใช้เมธอดบางอย่างที่ไม่ได้ทำในสิ่งที่คุณคิด (getNodeType จะไม่ส่งคืนชื่อองค์ประกอบ แต่เป็นตัวเลขที่แสดงถึงประเภทโหนด)

โดยรวมแล้วโค้ดที่อัปเดตด้านล่างดูเหมือนว่าจะให้สิ่งที่คุณต้องการ:

#!/usr/bin/perl

use strict;
use warnings;

use XML::XPath;

my $xp = XML::XPath->new(filename => "$0.xml");
# get all foo or foos node with a name
my $Foo = $xp->find('//foo[name] | //foos[name]');
if (!$Foo->isa('XML::XPath::NodeSet') || $Foo->size() == 0) {
    # no foo found
    return undef;
} else {
    # go over each and get its bar node
    foreach my $context ($Foo->get_nodelist) {
        my $FooName = $context->find('name')->string_value;
        my $Bar = $xp->findvalue('bar', $context); # or $context->findvalue('bar');
        if ($Bar) {
                print "Got $FooName with $Bar\n";
        } else {
                # move up the tree to get data from parent
                my $parent = $context->getParentNode;
                print $parent->getName,"\n\n";
        }
    }
}

สุดท้ายนี้ คำเตือน: XML::XPath ไม่ได้รับการดูแลอย่างดี และคุณน่าจะดีกว่าถ้าใช้ XML::LibXML แทน รหัสจะคล้ายกันมาก

คุณจะเห็นข้อผิดพลาดนั้นเมื่อคุณพยายามเรียกใช้เมธอดบน undef สาเหตุที่พบบ่อยที่สุดในการเรียกเมธอดบน undef คือไม่สามารถตรวจสอบว่าเมธอด Constructor สำเร็จหรือไม่ เปลี่ยน

$xp = XML::XPath->new( context => $context );

to be

$xp = XML::XPath->new( context => $context )
    or die "could not create object with args ( context => '$context' )";