[SBM] Spurl.netの被ブックマーク件数を表示してみた Kawa.netブログ（川崎有亮）/ウェブリブログ

[SBM] Spurl.netの被ブックマーク件数を表示してみた

<< 作成日時： 2006/05/25 00:10 >>

ソーシャルブックマーク Spurl.net に登録してみました。
はてなブックマークや、del.icio.us とどう違うのか（メリットがあるのか）まだよく分かっていません。
ページ言語（英語・日本語）を指定して検索時に絞込みできたり、非公開メモが書き込めたり、
あと、ページのサムネイルが表示されるのは見た目にも分かりやすいし、いい点もありますね。
ただ、利用者数（ブックマークされる数）が、はてブ・del.icio.us とだいぶ違うようです。
　

　
Kawa.net の各ページでも、Spurl.net に登録されている件数を表示するようにしました。
http://www.spurl.net/discover/domains.php?d=kawa.net
から件数をピックアップしています。『Spurled by: 1』とかの値です。

ソースの関連部分だけ抜粋すると、

    my $get = 'http://www.spurl.net/discover/domains.php?d='.$domain;
    my $html = &http_get( $get );
    my $meta = {};
    while ( $html =~ m{
        <a\s+href="(https?://[^"]+)">[^<>]+</a>\s*</div>\s*
        <div\s+id="details1_(\d+)"[^<>]+>\s*<div[^<>]+>\s*
        Spurled\s+by:\s+(\d+)
    }sxg ) {
        my( $url, $spurl_id, $count ) = ( $1, $2, $3 );
        next unless $count;
        $meta->{$url} ||= {};
        $meta->{$url}->{spurl_id} = $spurl_id;
        $meta->{$url}->{spurl}    = $count;
    }

sub http_get {
    my $url = shift;
    my $ua = LWP::UserAgent->new();
    $ua->agent( $USER_AGENT );
    my $res = $ua->get( $url ) or return;
    return if ( $res->code() >= 500 );
    my $html = $res->content() or return;
    $html;
}