perl - 如何使用 Perl 的 XML::Twig 计算 XML 中的多个标签？

Question

我正在使用XML::Twig使用 Perl 解析我的输入 xml。我需要提取此 XML 中的特定节点并验证该节点以查看它是否具有多个<p>标签，然后计算这些 P 标签中的单词。例如：

<XML> 
<name>
</name>
<address>
<p id="1">a b c d </p>
<p id="2">y y y </p>
</address>
</XML>

输出：

地址有 2 个带有 7 个单词的段落标签。

有什么建议么？

Answer 1

这是一种方法：

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

my $xfile = q(
<XML>  
<name> 
</name> 
<address> 
<p id="1">a b c d </p> 
<p id="2">y y y </p> 
</address> 
</XML> 
);

my $t = XML::Twig->new(
    twig_handlers => { 'address/p' => \&addr}
);
my $pcnt = 0;
my $wcnt = 0;
$t->parse($xfile);
print "Address has $pcnt paragraph tags with $wcnt words.\n";

sub addr {
    my ($twig, $add) = @_;
    my @words = split /\s+/, $add->text();
    $wcnt += scalar @words;
    $pcnt++;
}

__END__

Address has 2 paragraph tags with 7 words.

XML::Twig有一个专门的网站，其中包含文档和一个教程来描述上面使用的处理程序技术。