Firefox の履歴から YouTube だけ抜く

http://d.hatena.ne.jp/kkentaro/20060528/1148838634

Firefox の履歴から YouTube だけ抜く

抜くだけならこんなので。

use File::Mork;
my $mork = File::Mork->new( shift )
    || die $File::Mork::ERROR;
foreach my $entry( grep { $_->{URL} =~ /youtube\.com/ } $mork->entries ) {
    print $entry->{Name}, "\t", $entry->{URL}, "\n";
}

ただこれだけだと、トップページとかログインページとかも引っかかっちゃうけど。

config で、File::Mork::Entry の任意の key から、条件にマッチしたのだけ切り出せるようにして、CustomFeed::Mork にすればいいのかな。