HTMLで作っているサイトに、別で動かしているブログのRSS情報を取り込みたい。

さくらインターネットでHTMLでサイトを作成しています。
そして、FC2ブログで日記や気になったニュースを載せるブログをやっております。

さくらのサイトの方に、FC2ブログのRSS情報を取り込んで、更新情報として表示させたいのですが、これを実現できるようなCGIはありますでしょうか？

RSSを読み取り、それをリスト形式などで整形して出力するCGIがあれば、可能だとは思うのです。

RSSを読み込み、サイトに表示させるようなCGIはいくつかあるようなのですが、出来れば、色々とレイアウトを試したいので、RSSの中の情報を取捨選択して取り出せるCGIが欲しいと思っています。

Perlで、そういう機能を持ったCGIはありますでしょうか？　もし知っておられましたら、教えていただければと思います。
よろしくお願いいたします。

No.1 ベストアンサー 回答者： _--_1l1_1_ 回答日時： 2009/09/19 17:22

XML::RSS を使えばできます。

CGI というか、Perl モジュールですけど

---
#!/usr/bin/perl
use strict;
use warnings;
use LWP;
use HTTP::Request;
use XML::RSS;
use utf8;

my $uri = shift || 'http://dailynews.yahoo.co.jp/fc/rss.xml';
my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new( GET => $uri );
my $res = $ua->request($req);
$res->is_success or die "$uri: ", $res->message, "\n";

my $rss = XML::RSS->new();
$rss->parse( $res->content );

binmode STDOUT, '::encoding(utf8)';
print $rss->channel("title"), "\n";
print $rss->channel("link"), "\n";
print $rss->channel("description"), "\n";

for my $item_hash_ref ( @{ $rss->{items} } ) {
while ( my ( $key, $val ) = each %{$item_hash_ref} ) {
print '$rss->{items}->{', $key, '}', ' => ', $val, "\n";
}
}

---
実行結果
Yahoo!ニュース・トピックス - トップ
http://dailynews.yahoo.co.jp/fc/
Yahoo! JAPANのニュース・トピックスで取り上げている最新の見出しを提供しています。
$rss->{items}->{link} => http://rd.yahoo.co.jp/rss/l/topics/topics/*http: …
$rss->{items}->{item} =>
...
$rss->{items}->{title} => 消えた年金 基準緩和し救済へ
$rss->{items}->{pubDate} => Sat, 19 Sep 2009 16:04:07 +0900
$rss->{items}->{link} => http://rd.yahoo.co.jp/rss/l/topics/topics/*http: …
...

この回答へのお礼

ありがとうございます。
これを改良してみます。

お礼日時：2009/09/25 17:16