Plaggerプラグインです。HatenaBookmarkTagsプラグインをちょっといじって、HatenaBookmarkrRelatedEntryを作ってみました。はてブされたエントリーのはてぶページでの関連エントリー部分をフィード本文下に追加します。関連記事を追いたいときには便利かと。
plagger プラグインです（自信ありませんが）。はてブされたエントリーのはてなブックマークページでブックマークコメントの下に表示される関連エントリーをフィードに追加するものです。HatenaBookmarkTagをちょっといじって関連エントリーをフィード本文に追加できるようにしました。Web::Scraperを使っています。
以下のような感じで読み込んだフィード本文下に関連エントリーを追加します。興味のある内容であれば、関連エントリーを追っていくことも簡単にできますね。
gist: 172102 - GitHubにアップしています。コード自体に自信はありません。何度かさまざまなフィードを読み込んでGmailに送っています。問題なく表示・内容確認できています。
もしおかしな箇所、訂正した方がいい箇所などありましたら、こちらのコメントにて教えていただけると嬉しいです。よろしくおねがいします。perl Plagger プラグイン... - cool_ni_ikou - FriendFeed
package Plagger::Plugin::Filter::HatenaBookmarkRelatedEntry;
use strict;
use base qw( Plagger::Plugin );
use Web::Scraper;
use URI;
sub register {
my($self, $context) = @_;
$context->register_hook(
$self,
'update.entry.fixup' => \&update,
);
}
sub update {
my($self, $context, $args) = @_;
my $url = 'http://b.hatena.ne.jp/entry/' . $args->{entry}->permalink;
my $uri = URI->new($url);
my $scraper = scraper {
process '/html/body/div/div[5]/div/div[2]/div[2]/div[12]/ul', 'body' => 'HTML';
};
my $result = $scraper->scrape($uri);
if(!$result){
$context->log( error => "Can't scrap or no contens in related this entry" );
last;
}
my $body = $args->{entry}->body;
$result = "- ".$result->{body}."
今度はFriendFeedにクリップしたものをはてブ・deliciousにポストできるものを考えて作って見たいと思っています。みなさんSBM→FriendFeedですが、使い勝手を考えると逆の方がいいかなと。
できるだけPerlに親しむためにちょこちょことコード書くようにしています。それでも忘れてしまうことが多くて再復習に時間を取られます。ゆっくりですが、自分の情報収集で使えるようなものをちょこちょこ作っていければと思っています。Plagger ユーザーのみなさんよろしくです。
コメントする