株価のRSS
さて、最初の実験です。私は株を小額ながら購入しており、株価のデータをYahooで確認している状態です。これがRSSで配信されればいいなぁと思っていますが、探してみたのですがないようです。
ということで、株価をRSSで配信する仕組みを作ってみます。とりあえず、XREAでXML::RSSが動くと都合がよいので確認してみました。
http://www.xlabo.net/test/test_rss.cgi
RSSが表示されるので問題なしですね。
中身はこんな感じです。
#!/usr/bin/perl# XML::RSSを利用
use XML::RSS;
# RSSを作成
my $rss = new XML::RSS (version => '1.0');# channelの作成
$rss->channel(
title => "test",
link => "http://www.xlabo.net/test/test_rss.cgi",
description => "test RSS",
dc => {
date => "2005-07-28T19:59:29+09:00",
subject => "test subject",
creator => 'test@xlabo.net',
publisher => 'test@xlabo.net',
rights => 'Copyright 2005, x Laboratory',
language => 'jp',
}
);# Itemの追加
$rss->add_item(
title => "Test Item",
link => "http://test.com/",
description => "Description",
dc => {
subject => "Category test",
creator => "io",
date => "2005-07-28T19:59:29+09:00",
publisher => "BlognPlus",
rights => "abeken"
}
);# HTTPヘッダ
print "Content-type: text/xml\n\n";# RSSの出力
print $rss->as_string;
これで、RSSを出力する準備ができました。あとは株価のデータを取得する必要があります。