/home/pochi/ChangeLog / 2006-08-18

■ 焼肉で打ち上げ [JANOG][宴会]

焼肉 ぴゅあ
http://r.gnavi.co.jp/g262200/

JA全農直営店の「焼肉 ぴゅあ」にて。

肉を食べると体温が上がるなあ。

■ JANOG 18 staff meeting [JANOG]

汐留にて。
クロージング。
今回のミーティングは、新しい試みが盛沢山。
それが良いように作用したと思う。
スタッフとしても非常に楽しかった。
変化し続ける、っていうのが大事な気がするよなあ。

■ ニックネーム相性診断 - 魔法のMD5 [ネタ]

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";
}

■ ニックネームバトル - 魔法のMD5 - MD5バトル [ネタ]

http://www.newspace21.com/mix/btl.php

「ぽち」は異様に強いな。
大抵のニックネームには勝つっぽい。