feedmeterで見るブログの人気度

　feed meterを使うと、そのブログの更新頻度や人気度を集計してアイコン表示することができます。 feedmeterで公開している人気度上位ランキングの詳細リストが欲しくなったので、これを取得するためのPerlスクリプトを書いてみました。

　取得した結果を標準出力に吐き出します。
　人気度の変り目の探索には二分法を用い、相手サーバへの問合せ回数を最小にするようにしていますが、負荷を心配して過度の実行はできるだけお控えください。

feedmeterブログ人気度ランキング ('07/01/02 7:00現在)

#!/usr/bin/perl -w
$|++;

use strict;
use LWP::UserAgent;
use constant DETAIL_PAGE => 'http://feedmeter.net/detail.php';

### LWp::UserAgent の初期化
my $ua = new LWP::UserAgent
    or die 'Failed to initialize <LWP::UserAgent>';
$ua->timeout (30);

### ランキングのサイトリストを得る
printf STDERR "Retrieving a whole ranking list¥n";
my @ranking = GetRankingList ();

### 二分法でスコアの変り目を探す
my %table = ();
$table{ 1 } = GetSiteScore ( 1 );
$table{300} = GetSiteScore (300);

for (my $loop = 1; $loop; ) {
    my @ranks = sort { $a <=> $b } keys %table;
    $loop = 0;
    while (1) {
        my $rank1 = shift @ranks or last;
        my $rank2 = shift @ranks or last;
        unshift @ranks, $rank2;
        my $score1 = GetSiteScore ($rank1);
        my $score2 = GetSiteScore ($rank2);
        unless ($score1 == $score2) {
            my $mid = int (($rank1 + $rank2) / 2.);
            unless ($mid == $rank1) {
                printf STDERR "Retrieving [$mid]¥n";
                $table{$mid} = GetSiteScore ($mid);
                $loop = 1;
            }
        }
    }
}

### 結果出力
my $score;
foreach my $rank (1..300) {
    $score = $table{$rank}
        if defined $table{$rank};
    printf STDOUT "%s¥t%s¥t%s¥t%s¥t%s¥n",
            $rank, $score,
            $ranking[$rank]->{star},$ranking[$rank]->{freq},
            $ranking[$rank]->{name};
}
exit;



### ランキングのサイトリストを得る
sub GetRankingList {
    my @ret = ();
    my $res = $ua->get (DETAIL_PAGE);
    sleep 3;
    die 'Can¥'t retrieve the page'
        unless $res->is_success;
    my $buf = $res->content;

    while ($buf =‾ s!<tr[^>]*><td>(¥d+)<img[^>]*></td><td>([^<]+)</td><td><a href="([^"]+)"[^>]*>RSS</a></td><td><a[^>]*><img src="http://feedmeter.net/img/meterb(¥d)(¥d).gif"[^>]*></a></td></tr>!!) {#"
        $ret[$1] = { rank => $1, name => $2, rss => $3, star => $4, freq => $5 };
    }
    @ret;
}

### 指定されたランクのサイトのスコアを得る
sub GetSiteScore {
    my ($rank) = @_;
    if (defined $ranking[$rank]) {
        if (! defined $ranking[$rank]->{score}) {
            $ranking[$rank]->{score} = RetrieveSiteScore ($ranking[$rank]->{rss});
        }
        return $ranking[$rank]->{score};
    }
    undef;
}

### 指定された RSS のサイトのスコアを得る
sub RetrieveSiteScore {
    my ($rss) = @_;
    printf STDERR "%s ", $rss;
    my $res = $ua->get (DETAIL_PAGE. '?r='. $rss);
    sleep 1;
    die 'Can¥'t retrieve the page'
        unless $res->is_success;
    my $buf = $res->content;

    if ($buf =‾ m!<td nowrap width="75%">([¥d¥.]+)</td>!s) {
        printf STDERR ": %s¥n", $1;
        return $1;
    }
    printf STDERR ": failed¥n";
    return undef;
}

コメントを投稿する

名前	(必須/公開)
メール	(必須/非公開)
返信先
コメント	お気軽にコメントをお寄せください・コメントを投稿するにはブラウザの JavaScript を有効にしてください・入力された通りに改行位置で改行されます・HTML タグは使用できませんが、文中の URL は自動的にリンクされます・"<" は "<"、">" は ">" と書いてください
投稿確認	コメントスパム防止のため投稿前にを入力してから投稿してください。お手数ですがご協力のほど宜しくお願いいたします。(必須)

フッタメニュー

Copyright © 2004-2008 Open MagicVox.net. Some rights reserved under Creative Commons License.
Written in Japanese (utf-8). Japanese fonts are required to view this page.
Generated with Movable Type Open Source 4.15b4b-en

Total Visits:

/ Today:

/ Yesterday:

ヘッダメニュー

feedmeterで見るブログの人気度

この記事を読んだ人はこんな記事も読んでいます

この記事のアーカイブ

関連記事/トラックバック

この記事のトラックバック URL

コメントを投稿する

リファレンス

ツール

関連する商品

モバイル

ナビゲーション

記事検索

勝手におすすめ

最近のコメント/関連記事

最近の人気記事

フッタメニュー

ヘッダメニュー

feedmeterで見るブログの人気度

この記事を読んだ人はこんな記事も読んでいます

その他の関連する記事

この記事のアーカイブ

関連記事/トラックバック

この記事のトラックバック URL

コメントを投稿する

リファレンス

ツール

関連する商品

モバイル

ナビゲーション

記事検索

勝手におすすめ

最近のコメント/関連記事

最近の人気記事

フッタメニュー