RSS, Atomの URLを探す

perl html

RSS, ATOMを探すのを自前で書いていたけど、Feed::Findという
モジュールがありました。RSS、Atom対応しているサイトが

<link rel='alternate'... />

というタグだったらいいんですけど、そうじゃないサイトもあるので
自前で書いてました。ソースを確認したところ、結局自前で書いている
ものと大きくは違わないけど、テストされている分安心して使える
のでこちらを使おうかと思います。


サンプルコード

#!/usr/bin/env perl
use strict;
use warnings;

use Feed::Find;

my @feeds = Feed::Find->find('http://blog.dmm.co.jp/actress/mizuki_nao/');

print "Feed : $_ \n" for @feeds;

@feeds = Feed::Find->find('http://www.maxing.jp/blog/yoshizawa_akiho/');

print "Feed : $_ \n" for @feeds;


結果(2つめのサイトは linkタグで RSSが指定されていない)

Feed : http://blog.dmm.co.jp/actress/mizuki_nao/atom.xml 
Feed : http://blog.dmm.co.jp/actress/mizuki_nao/index.rdf 
Feed : http://blog.dmm.co.jp/actress/mizuki_nao/index.xml 
Feed : http://www.maxing.jp/blog/rss_ID10001.rdf


linkタグを使っているのもそうでないのもうまくいきました。
やっぱりモジュールは探してみるものですね。