使用XML :: Twig,有没有办法找到具有特定属性的'first_child'？

Question

我有一些看起来像这样的XML:

<?xml version="1.0" encoding="UTF-8"?>
<DataSet>
<Category>
   <Name mode="source">somename</Name>
   <Name mode="destination">someothername</Name>
   <Content>Some text here</Content>
</Category>
</DataSet>

我要做的是处理'类别',并根据上下文提取不同的名称.

我试过迭代它children- 这工作:

use strict;
use warnings;
use XML::Twig;

sub process_category {
    my ( $twig, $category ) = @_;
    my $cat_name;
    foreach my $name ( $category->children('Name') ) {
        if ( $name->att('mode') eq 'source' ) {
            $cat_name = $name->text;
        }
    }

    print "$cat_name ", $category->first_child_text('Content'), "\n";
}

my $twig =
    XML::Twig->new( twig_handlers => { 'Category' => \&process_category } )
    ->parse( \*DATA );


__DATA__
<?xml version="1.0" encoding="UTF-8"?>
<DataSet>
<Category>
   <Name mode="source">somename</Name>
   <Name mode="destination">someothername</Name>
   <Content>Some Text</Content>
</Category>
</DataSet>

但是我想知道 - 有没有比迭代元素更好的方法？我无法弄清楚是否first_child支持属性搜索,或者是否有另一种方法可以执行相同操作.

Answer 1

使用XML :: Twig的get_xpath方法搜索属性中的匹配值.例如:

my $cat_name = $category->get_xpath('./Name[@mode="source"]', 0)->text;

默认情况下,get_xpath返回一个数组.通过传递"0",只传递数组的第一个元素(这是你需要的,并且可能只有一个匹配).然后,文本被拉出来->text.使用它,你可以删除你的for循环.