Yahooのトピックスを取得する他の手段

さっきの記事を書きながら、トピックスの取得だったらRSSで良いよね、と思ってしまったので、ついでに書いてみた。

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
# utf8
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を使ってみた。

結果

1
2
3
4
5
菅新首相の支持率62.4% NNN
エース級種牛、生き残り容認へ
回転ずし店に車 14人が重軽傷
茨城・上海チャーター便就航へ
「イカロス」帆の展開8日以降に

「昨日の記事」とか「一覧」とかも省かれているし、シンプルですね。 Web::Scraperも良いですが、この手の物は、RSSがあればそっちを利用するのがいいですね。

SEE ALSO

結果