RSSリーダー (Digital Natives)

Perlで書いたRSS Readerの例です。文字コードはunicode(utf-8)にする。
⇒２００３年に作ったRSSプリミティブ！

この例ではasahi.comのrss/index.rdfを読み込み表示しています。

#!/usr/local/bin/perl
use LWP::Simple 'get';
use XML::RSS;
use Jcode;
my $URL = 'http://www3.asahi.com/rss/index.rdf';
my $rss = new XML::RSS;
eval {
     $rss->parse(get($URL));
};
print qq|Content-Type: text/html\n\n|;
print qq|<html><head><meta http-equiv='Content-Type' content='text/html; charset=utf-8'>
<title></title><style type='text/css'>
<!-- A{line-height : 140%;}
--></style>
</head>\n|;
print qq|<body style='margin:2em; '>Perlで書いたRSS Readerの例です。文字コードはunicode(utf-8)にする。<br>この例ではasahi.comのrss/index.rdfを読み込み表示しています。<hr><ul>\n|;
for my $item (@{$rss->{items}}) {
	printf qq|<li><a href="%s">%s</a><br>\n|, $item->{link}, Jcode::convert(\$item->{title}, sjis);
}
print qq|</ul></body></html>\n|;

主なRSSフィード一覧

Yahoo!動画　 http://streaming.yahoo.co.jp/rss/newly/all/

Yahoo!グルメ
http://api.gourmet.yahoo.co.jp/rss/RankRss.php?conditionidx=4&conditionquery=1&conditionbl=a&sortc_or_i=i,i,i&sortindex=8,22,23&sortdirect=-1,-1,-1&getnum=20&rankid=0&per=1&url=typ%3D0%26md%3D0

日経BP
http://www.nikkeibp.co.jp/news/flash/index.rdf

フジテレビ
http://rss.fujitv.co.jp/fnnnews.xml

フジサンケイ
http://www.rsssuite.jp/sankei/f2617/index.rdf

AllAbout
http://feeds.feedburner.jp/allabout/ranking

ロイタートップﾆｭｰｽ
http://feeds.reuters.com/reuters/JPTopNews

ロイター海外こぼれ話
http://feeds.reuters.com/reuters/JPOddlyEnoughNews

Japan Internet
http://japaninternetcom.pheedo.jp/f/japaninternetcom

＠IT
http://www.atmarkit.co.jp/rss/rss.xml

Asahi.com速報
http://www.asahi.com/information/service/rss.html

The Wall Street Transcript
http://www.twst.com/mynetscape/main.rdf

Guardian Unlimited
http://www.guardian.co.uk/rss/1,,,00.xml

ABC News: World
http://my.abcnews.go.com/rsspublic/world_rss20.xml

The Motley Fool
http://www.fool.com/xml/foolnews_rss091.xml

The Village Voice Most Popular
http://www.villagevoice.com/most_popular_rss.php

U.S. News & World Report
http://www.usnews.com/usnews/usnews.rss

USATODAY.com Nation
http://rssfeeds.usatoday.com/UsatodaycomNation-TopStories

Life is Adventure!
http://agorian.com/index.xml

冒険か無 Let Us Have Faith
http://www.elmblog.com/index.xml

Web2.0 Mashup
http://elmstadt.com/wp/feed/

Life is Adventure｜RSSリーダー｜ 2007年07月17日　