如何使用Perl的XML :: Twig來計算XML中的多個標籤？

Question

我使用XML::Twig來解析我的輸入XML使用Perl。 我需要提取此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有一個專門的網站，文檔和教程描述上文所使用的處理器技術。