「はてブでランダムジャンプ」(2008年リリース)を大幅にリニューアル
2016-01-30-2
[Maintenance][Programming]
ソーシャルブックマークサービス「はてなブックマーク」の人気エントリ(みんながブックマークしているページ)をランダムにピックアップしてジャンプさせるサービス「はてブでランダムジャンプ」を大幅にリニューアルしました。どうぞご利用ください。
今更ながら iframe を使用しました。上のバナー部分のランダムジャンプボタンをクリックすると、タブ切り替え無しで次から次へとランダムに人気ページを読み込んで表示していきます。iframe で表示されないページは、バナーのリンクを直接クリックして表示しましょう。
また、ランダムジャンプの飛び先ははてなブックマークの全てのカテゴリから取得するようにしました。つまりは大増量です。これらのURLリストは「現時点でのジャンプ先の一覧」で見ることができます。全てRSSから取得、1時間に1回更新。
使っているRSSの一覧です。サンプルプログラム(RSSからURLのみ取得)と一緒にどうぞ。「総合」は他と重複するので使っていません。
- はてブでランダムジャンプ
http://hatebu.ta2o.net/rj.cgi
今更ながら 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);
}
関連記事
- 「はてブでランダムジャンプ」を作ってみた[2008-10-08-1]
- リリースのお知らせ記事。2008年10月8日。
