#!/usr/bin/perl

use XML::XPath;
use XML::XPath::XMLParser;

my $xp = XML::XPath->new(filename=>"a.xml");

# 读取元素
my $nodeset = $xp->find("/xml/table/rec/numField");

foreach my $node ($nodeset->get_nodelist)
{
        print $node->getChildNode(1)->getValue() . "\n";
}

# 读取属性
my $nodeset = $xp->find("/xml/table/rec");

foreach my $node ($nodeset->get_nodelist)
{
        print $node->getAttribute ("id") . "\n";
}                                   

# 条件中包含属性
my $nodeset = $xp->find("/dir/d[attribute::n='b']");
foreach my $node ($nodeset->get_nodelist)
{
        print $node->getChildNode(1)->getValue() . "\n";
}