古い記事
ランダムジャンプ
新しい記事
ソーシャルブックマークサービス「はてなブックマーク」の人気エントリ(みんながブックマークしているページ)をランダムにピックアップしてジャンプさせるサービス「はてブでランダムジャンプ」を大幅にリニューアルしました。どうぞご利用ください。

はてぶでらんだむじゃんぷ

今更ながら iframe を使用しました。上のバナー部分のランダムジャンプボタンをクリックすると、タブ切り替え無しで次から次へとランダムに人気ページを読み込んで表示していきます。iframe で表示されないページは、バナーのリンクを直接クリックして表示しましょう。

はてぶでランダムジャンプ

また、ランダムジャンプの飛び先ははてなブックマークの全てのカテゴリから取得するようにしました。つまりは大増量です。これらのURLリストは「現時点でのジャンプ先の一覧」で見ることができます。全てRSSから取得、1時間に1回更新。

使っているRSSの一覧です。サンプルプログラム(RSSからURLのみ取得)と一緒にどうぞ。「総合」は他と重複するので使っていません。
#!/usr/bin/env perl
use strict;
use warnings;
use LWP::Simple;
my @list = (
#   ['総合','http://b.hatena.ne.jp/hotentry.rss'],
    ['世の中','http://b.hatena.ne.jp/hotentry/social.rss'],
    ['政治と経済','http://b.hatena.ne.jp/hotentry/economics.rss'],
    ['暮らし','http://b.hatena.ne.jp/hotentry/life.rss'],
    ['学び','http://b.hatena.ne.jp/hotentry/knowledge.rss'],
    ['テクノロジー','http://b.hatena.ne.jp/hotentry/it.rss'],
    ['エンタメ','http://b.hatena.ne.jp/hotentry/entertainment.rss'],
    ['アニメとゲーム','http://b.hatena.ne.jp/hotentry/game.rss'],
    ['おもしろ','http://b.hatena.ne.jp/hotentry/fun.rss']
    );
foreach my $i (@list) {
    my $cont = get($i->[1]) || "";
    print "$1\n" while ($cont =~ /rdf:li rdf:resource="(.+?)"/g);
}

関連記事