1

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>

出力：

Address には、7 語からなる 2 つの段落タグがあります。

助言がありますか？

4

1 に答える 1

4

これを行う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には、上記で使用したハンドラー手法を説明するためのドキュメントとチュートリアルを備えた専用のWebサイトがあります。

于 2010-08-24T21:31:59.653 に答える