Kawa.netxp [RSS] RSS・RDF・Atomフィードのフォーマット変換・結合デモ

XML::FeedPP モジュールのフォーマット変換・結合機能の動作デモです。
RSS・RDF・Atom フィードをダウンロードして、指定フォーマットに変換出力します。
このフォームでは、同時に5ファイルまでの結合も行えます。

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

#!/usr/bin/perl
use strict;
use CGI;
use XML::FeedPP;
my $cgi = CGI->new();
my $param = $cgi->Vars();
my $format = $param->{format};
my $src = [ grep {m#^https?://#} map {$param->{$_}} grep {/^src/} keys %$param ];
my $feed;
if ( $format eq "RDF" ) {
    $feed = XML::FeedPP::RDF->new();
} elsif ( $format eq "Atom" ) {
    $feed = XML::FeedPP::Atom->new();
} else {
    $feed = XML::FeedPP::RSS->new();
}
foreach my $url ( @$src ) {
    $feed->merge( $url );
}
print "Content-Type: text/xml; charset=UTF-8\n\n";
print $feed->to_string( "UTF-8" );

コメントはこちらへ by AjaxCom

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

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

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