Kawa.netxp [Perl] XML::TreePP XML展開処理オンラインDEMO

XML::TreePP モジュールのXML→Perlハッシュツリーの展開処理デモです。

XML ソース　（差し替えられます）
<?xml version="1.0" encoding="UTF-8" ?> <rss version="2.0"> <channel> <link>http://www.kawa.net/</link> <title>kawa.net xp／川崎有亮</title> <pubDate>Thu, 02 Mar 2006 04:51:00 +0900</pubDate> <description>川崎有亮の制作したプログラムのご紹介など。</description> <copyright>Copyright 1995-2006 . All rights reserved.</copyright> <item> <link>http://www.kawa.net/works/perl/treepp/treepp.html</link> <title>[Perl] XML::TreePP - Pure Perl実装によるXMLファイル展開モジュール</title> <pubDate>Thu, 02 Mar 2006 04:51:00 +0900</pubDate> <description>XML::TreePP モジュールは、 XML ファイルを解析して...</description> </item> <item> <link>http://www.kawa.net/works/perl/feedpp/feedpp.html</link> <title>[Perl] XML::FeedPP - RSS・RDF・Atomフィードの解析・生成・変換・結合</title> <pubDate>Tue, 28 Feb 2006 14:08:00 +0900</pubDate> <description>XML::FeedPP モジュールは、 RSS、RDF、Atom フィード...</description> </item> </channel> </rss>
▼

▼
ハッシュ展開結果

サーバ側 Perl/CGI プログラムソースはこちら

#!/usr/bin/perl

use strict;
use XML::TreePP;
use Data::Dumper;

my $body   = $ENV{QUERY_STRING}   if exists $ENV{QUERY_STRING};
my $length = $ENV{CONTENT_LENGTH} if exists $ENV{CONTENT_LENGTH};
read( *STDIN, $body, $length ) if ( defined $length && $length > 0 );
my $tpp = XML::TreePP->new();
my $tree = $tpp->parse( $body );
$Data::Dumper::Indent = 1;
print "Content-Type: text/plain; charset=UTF-8\n\n";
print Dumper( $tree );

コメントはこちらへ by AjaxCom

このページへのトラックバック by AjaxTB

トラックバックURL：http://www.kawa.net/service/tb/ajaxtb.cgi/works/perl/treepp/tree-demo.html

ご意見・ご要望などお待ちしております。<u-suke [at] kawa.net>