[僕] mixi コミュニティ一覧表示をキャッシュしてみる。

たろマーク（はてなブックマーク）

Jasmine: Javascript Testing Framework

[ javascript ][ test ] Rspec ライクな Javascript テストフレームワーク
leebenny's CakePHP-DataSource-for-eZ-Publish at master - GitHub

[ ezpublish ] eZ のデータソースを CakePHP で使うためのアダプタ。Rails とか Django にこれを移植すれば！
新米マネージャーの成長ブログ: iQuestioner

[ iquestioner ]
404 Blog Not Found:ネタベタオタの上には - 書評 - メタプログラミングRuby

[ ruby ]
Lazy Programmer's Wlog / Me/2010年　富士山

[ lazy-people ] おつでしたー

2005年01月18日

■ [mixi][perl][script] mixi コミュニティ一覧表示をキャッシュしてみる。

WAY TO GO: WWW::Mixiでサイドバーにコミュニティ一覧を表示

mixiのコミュニティ一覧をサイドバーに表示するスクリプトを書いてみました。

しかし、アクセス毎にいちいちログインしてるので表示まで時間がかかるのが玉にキズです…

そんな時には、Cache::Cache でどーでしょうか？
＃なんか、search.cpan.org 重いような・・(；ﾟﾛﾟ)

#!/usr/bin/perl -w

use strict;
use lib qw(/path/to/perl/lib);
use Jcode;
use WWW::Mixi;
use Cache::FileCache;

my $id = 'your_id';

my $cache = new Cache::FileCache({
        cache_root => '/home/taro/mixi/cache',
        namespace => "mixi",
        default_expires_in => 60 * 60,
    });

my $data;
unless ($data = $cache->get($id)) {
        my $mixi = WWW::Mixi->new('your_mixi_account', 'your_mixi_password');
        
        $mixi->login;
        
        my $res = $mixi->get("/list_community.pl?id=$id");
        
        my @items = $mixi->parse_list_community();
        
        for my $item (@items) {
                my $link = $item->{link};
                my $subject = jcode($item->{subject})->utf8;
                $subject =~ s/'/\\'/g;
                $data .= "document.write('<a href=\"$link\" target=\"_blank\">$subject</a><br />')\n";
        }
        
        $cache->set($id => $data);
}

print "Content-Type: text/javascript\n\n";
print $data;

1;

cron が使えるなら、JS ファイルを定期的に自動生成とかもいいと思います(　´∀｀)
＃ウチの公開ディレクトリは、そんなファイルばっかりでゴチャゴチャしてきてる(ﾉ∀`)

投稿者: 海賊たろ（小松大輔）日時: 2005年01月18日 06:02 | パーマリンク |