ブラウザ履歴から購読していないフィードを登録してみた

とりあえずはてなダイアリーかグループのトップページ限定でAPIを使ってフィードを探してみた。9日分の履歴中該当は51件あって、フィードが見つかったのは35個で未登録は11個だった。レスポンスは一瞬で返ってきた。

#!/usr/bin/perl 
use strict;
use warnings;
use File::Mork;
use LWP::Simple;
#use YAML;

my $m = File::Mork->new('history.dat', verbose =>1) or die;

#print Dump $m->entries;

my @hatenas =
    map $_->{URL},
    grep $_->{URL} =~ m{^http://(?:[a-z0-9]+\.)?[gd]\.hatena\.ne\.jp/[a-z0-9]+/$}i, $m->entries;

my $api = 'http://rpc.reader.livedoor.com/feed/discover?links=';
my $opml = get($api . join "\n", @hatenas);
open my $fh, '>', 'feed.opml';
print {$fh} $opml;