feed meter のランキングを定点観測する Perl スクリプト

　feed meter での現在のランキングを定点観測してログに書き出す Perl スクリプトです。「順位の変動が気になって眠れないんだぜ」という自意識過剰な人にオススメです。

　$url で定義されている URL を自分のブログのフィードに書き換えて御利用ください。スクリプトの文字コードは EUC-JP で保存してください。ランキングの更新は毎日深夜に行われているようなので、朝方に一度だけ実行すれば事足りますので cron やタスクで回すなどしてください。Web::Scraper は使うまでもなかった。

#!/usr/bin/perl
# feed meter のランクと人気度を定点観測するスクリプト

use strict;
use LWP::UserAgent;

my $url = 'http://feedmeter.net/detail.php?r=http://www.magicvox.net/index.rdf';

my $logfile = './feedmeter.log';



### Initialize
my $ua = new LWP::UserAgent
    or die "Failed to initialize LWP::UserAgent";
$ua->agent( "Mozilla/4.0" );

### Retrieve the content
my $res = $ua->get( $url )
    or die "Failed to retrieve $url (1)";
$res->is_success
    or die "Failed to retrieve $url (2)";

###
my $buf = $res->content
    or die "No content";
my( $rank ) = $buf =‾ m!">&lt;&lt;</a> (¥d+)位 <a href="detail¥.php¥?r=!;
my( $rate ) = $buf =‾ m!<td nowrap width="75%">([¥d.]+)</td>!;

###
if( open( my $fh, ">>$logfile")) {
    my @t = localtime time;
    $t[5] += 1900;
    $t[4] += 1;
    printf $fh "%4d/%02d/%02d %02d:%02d¥t%d¥t%s¥n", $t[5],$t[4],$t[3], $t[2],$t[1], $rank,$rate;
    close $fh;
}

コメントを投稿する

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

ヘッダメニュー

feed meter のランキングを定点観測する Perl スクリプト

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

この記事のアーカイブ

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

この記事にトラックバックを送るには？

コメントを投稿する

リファレンス

ブロガープロフィール

ツール

関連する商品

モバイル

ナビゲーション

記事検索

勝手におすすめ

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

最近の人気記事

フッタメニュー

ヘッダメニュー

feed meter のランキングを定点観測する Perl スクリプト

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

その他の関連する記事

この記事のアーカイブ

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

この記事にトラックバックを送るには？

コメントを投稿する

リファレンス

ブロガープロフィール

ツール

関連する商品

モバイル

ナビゲーション

記事検索

勝手におすすめ

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

最近の人気記事

フッタメニュー