Perl - CPAN - XML::Smartパッケージ

Zaurus

ここに掲載するものは、塚本さんにパッケージ化して頂いているZaurus用Perl 5.6.1に追加でインストールするPerlライブラリのXML::Smartである。
ソースはここからダウンロードし、dev-img-1.3でセルフコンパイルした。
セルフコンパイルとは言っても、実際にはPerlスクリプトだけでできている。

download：lib-perl-xml-smart_1.6.9-1_arm.ipk

このパッケージの動作にはXML::Parserパッケージと以下のObject::MultiTypeパッケージが必要である。

download：lib-perl-object-multitype_0.05-1_arm.ipk

手始めの使い方は以下の通りである。

use XML::Smart;

$html =<<__XML__;
<html>
<head>
<title>hello world</title>
</head>
<body>
<p>Dear our friends.</p>
<p>This is the greeting page.<br />
Thank you.</p>
<p>Regards.</p>
</body>
</html>
__XML__

$xml = new XML::Smart($html);
print $xml->data();
print "----\n";
for ($i = 0; $i < 3; $i++) {
    print "[$i]:", $xml->{html}{body}{p}[$i], "\n";
}

XML::Smartの詳細は以下をご覧頂きたい。

英語：http://search.cpan.org/~gmpassos/XML-Smart-1.6.9/lib/XML/Smart.pm