Feed::Findというモジュールに、「RSS・Atomの auto discovery」が実装されている。 use Feed::Find; my @feeds = Feed::Find->find('http://d.hatena.ne.jp/jgoamakf/'); for my $feed_url (@feeds) { print $feed_url, "\n"; } % findrss.pl http://d.hate…

HTTP::Asyncを使うとき、HTTP::Requestにデータを追加できれば便利な気がする。例えば「あるURLに定期的にアクセスするプログラムで、2回 404 が続いたら別の処理をしたい」場合、前回のステータスをHTTP::Requestに保存できると、GETの結果を処理するときに…

こういうデータベースを作って CREATE TABLE table1( id integer PRIMARY KEY, data1 text ); CREATE TABLE table2( table1_id integer REFERENCES table1(id) PRIMARY KEY, data2 text ); INSERT INTO table1 VALUES(1, '1-1'); INSERT INTO table1 VALUES(…