仕事で Perl を使う案件があり、そのなかで利用されていた XML::TreeBuilder について、最低限の使用方法を忘れないようにメモ。

*

XML::TreeBuilder 自体は CPAN でダウンロードし、インストールします。

使い方は、ざっくりと次の通り。

1. ライブラリを読み込む
2. インスタンス作る
3. XML を解析する
4. 中身をいじる
5. インスタンスを破棄する

具体的なコードにすると次の通り。

1. use XML::TreeBuilder;
2. $h = XML::TreeBuilder->new;
3. $h->parse(<XML のデータ>);
4. $h->find() とか $h->attr() とか ->as_text とか
5. $h->delete;

*

この中では、4番の解析部分が一番多く使われると言うか処理の中心になると思います。
例えば次の XML の場合について考えます。

この XML のすべての id ダグを抜き出すのであれば、次のコードになります。

foreach (@ids) {
print $_->as_text;
}
[/code]

id タグすべてが取得されます。
この場合、画面には「0123」 が表示されます。

しかし、一般的には entry 以下の id 「123」を抜き出したいでしょう。その場合には次のコードになります。

foreach (@entries) {
print $_->tag(‘id’)->as_text;
}
[/code]

look_down() が下位ノードのすべてのノードを取得するのに対し、tag() は子ノードのみを対象とするわけですね。
組み合わせることで、DOM の階層を表現できます。

※as_text は、現在のタグの内容を文字列で取得する関数

他にも便利な関数はたくさんありますが、とりあえずメモと言うことで。