http://www.newspace21.com/mix/ai_list.php
mixi のニックネームで相性診断をすると楽しめるね。
とりあえず友達リストの最初に出てくるトップ50人で
相性診断してみたよ。
最高に相性が良いのは「もんがい」さん。
大学時代の先輩だな。
トロンボーン吹きなんだけど、最近はバイオリンも
弾くらしいので、きっと、プルトを組め、ということだな。
最低だったのは、最近ブレイク中の「づか」さん。
大笑い。
「づか」さんの会社。社長一人しかいないけど。
http://crossfire.jp/blastj/
「づか」さんのブログ
http://d.hatena.ne.jp/i-zuka/
参考までに、数値は以下のような感じ。
1 もんがい 100 95 83 98 89 93
....
50 づか 9 5 2 7 4 5
マイミク一覧の出力なんだけど、逃避がてら WWW::Mixi で遊んでみたよ。
WWW::Mixi モジュール
http://search.cpan.org/~tsukamoto/WWW-Mixi-0.47/
マイミクリストを取得するプログラムは以下ね。
トップの50人しか表示しなかったり、
chop でお茶を濁してたり手抜きしまくり。
Perl だもの(by みつを)
#!/usr/bin/perl -T
use strict;
use WWW::Mixi;
my $mixi = WWW::Mixi->new('account@example.com', 'password');
my $response = $mixi->login
or die "login error\n";
my @items = $mixi->parse_list_friend($response)
or die "can't get friend list\n";
foreach my $item (@items) {
my $subject = $item->{'subject'};
### "さん" を除去
chop $subject; chop $subject; chop $subject; chop $subject;
print "$subject\n";
}