さっきの記事を書きながら、トピックスの取得だったらRSSで良いよね、と思ってしまったので、ついでに書いてみた。
# ｕｔｆ８
use 5.8.1;
use strict;
use warnings;
use utf8;
use Encode;
use Term::Encoding qw(term_encoding);
my $enc = Encode::find_encoding(term_encoding);
use Data::Feed;
use URI;
# urlを指定する
my $url = URI->new('http://dailynews.yahoo.co.jp/fc/rss.xml');
# サイトにアクセスし、Feedを取得する
my $feed = Data::Feed->parse($url);
print $enc->encode($_->title)."\n" for ($feed->entries);
RSSの解析をするモジュールは色々とあるけれども、今回はData::Feedを使ってみた。
SEE ALSO
結果
菅新首相の支持率62.4% NNN
エース級種牛、生き残り容認へ
回転ずし店に車 14人が重軽傷
茨城・上海チャーター便就航へ
「イカロス」帆の展開8日以降に
他チーム故障 ブラジルは複雑
全仏男子 ナダル5度目の優勝
古瀬アナが絵本作家デビュー
「昨日の記事」とか「一覧」とかも省かれているし、シンプルですね。
Web::Scraperも良いですが、この手の物は、RSSがあればそっちを利用するのがいいですね。
コメントする