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

Zaurus

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

download：lib-perl-xml-simple_2.18-1_arm.ipk

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

use XML::Simple;

$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::Simple;
&print_xml("html", $xml->XMLin($html), "");

sub print_xml
{
    my ($name, $val, $indent) = @_;
    if (ref($val) eq "HASH") {
        print "$indent$name\n";
        $indent .= "  ";
        foreach my $key (keys(%$val)) {
            print_xml($key, $val->{$key}, $indent);
        }
    } elsif (ref($val) eq "ARRAY") {
        print "$indent$name\n";
        $indent .= "  ";
        for (my $i = 0; $i <= $#$val; $i++) {
            print_xml("[$i]", $val->[$i], $indent);
        }
    } else {
        print "$indent$name = \"$val\"\n";
    }
}

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

英語：http://search.cpan.org/~grantm/XML-Simple-2.18/lib/XML/Simple.pm
日本語：http://www.web-ware.org/npindex/67/