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タグを使っているのもそうでないのもうまくいきました。
やっぱりモジュールは探してみるものですね。