nDiki : 1月12日

2004年1月12日 (月)

過去の今ごろ

過去の1月12日より。

ドンケ F-2 タン
- まだ1回しか出番がない。

スポンサードリンク

[ Perl ] Memcached を使ってみる

WiKicker の高速化に Memcached が使えないかいろいろいじってみる。評価は今のところ「微妙」。 Memcached はメモリキャッシュを提供するデーモンプログラムで、キーと値の配列を記憶しておいてくれる。 Slashdot でも使っているらしい。

ホスティングサービスのサーバ(FreeBSD 4.4-RELEASE)に入れてみる。

Memcached 1.1.10

依存している libevent と一緒にビルドしてインストール。

 cd /tmp
 wget http://www.monkey.org/~provos/libevent-0.7c.tar.gz
 tar zxvf libevent-0.7c.tar.gz
 cd libevent-0.7c
 ./configure
 make
 cd ..
 wget http://www.danga.com/memcached/dist/memcached-1.1.10.tar.gz
 tar zxvf memcached-1.1.10.tar.gz
 cd memcached-1.1.10
 CFLAGS='-L../libevent-0.7c -I../libevent-0.7c' ./configure --prefix=$HOME/local/memcached-1.1.10
 make
 make install

'-l' オプションがうまく動かない。

 bind(): Can't assign requested address
 failed to listen
 /PRE

指定しなくても動くのでとりあえず、よしとする。

ちなみに、EVENT_SHOW_METHOD=1 の結果は以下の通り。

 $ EVENT_SHOW_METHOD=1 ./memcached
 libevent using: kqueue

Cache::Memcached 1.0.11

Perl 用の API モジュールを入れておく。 make test でこける。

 Your vendor has not defined Socket macro MSG_NOSIGNAL

use Socket qw(MSG_NOSIGNAL PF_INET SOCK_STREAM); のところ。 Solaris/*BSD だと駄目らしい。 CVS版だと解決されいるようなので、こちらを。

Cache::Memcached CVS

 cvs -d :pserver:anonymous@danga.com:/home/cvspub checkout wcmtools/memcached/api/perl

でとってくる。こちらは Perl 5.005_03 という古いバージョンでいくつか問題。

 our $SOCK_TIMEOUT = 2.6;

のところの our は Perl 5.005_03 には無いので、use vars に置き換え。 use bytes も 5.005_03 に無いのでコメントアウト。

IO::Handle::blocking() も無い。

 sub my_blocking {
   my ($sock, $bool) = @_;

   my $old_flags = fcntl($sock, F_GETFL, 0)
       or die "Can't get flags for the socket: $!\n";

   if ($bool) {
       my $flags = fcntl($sock, F_SETFL, $old_flags | O_NONBLOCK)
           or die "Can't set flags for the socket: $!\n";
   }
   else {
       my $new_flag = $old_flags & ~O_NONBLOCK;
       my $flags = fcntl($sock, F_SETFL, $new_flag)
           or die "Can't set flags for the socket: $!\n";
   }
   return $old_flags & O_NONBLOCK;
 }

...でいいのかな? ささっと書いたんで一部バグっているかもしれないが、とりあえず代替しておく。

ちなみに Cache::Memecached の古い版、MemCachedClient-1.0.7 も試してみたけれどこちらも IO::Socket::INET が必要だったり面倒(なので、1.0.11 のパッチ当ての方をがんばった)。

スピード

うーん。思ったほど速くないな。いや手元のLinuxだとかなり速いんだけれど、FreeBSD だとそうでもない。 Client側の問題が大きいようだ。下手するとLinux BOX からADSL経由でキャッシュを読み込む方が、FreeBSD のローカルホストから読むより速かったりする。

どうも Socket の接続/切断まわりでもたついている感じである。 (無駄なはずなのだが)毎回 disconnect_all してしまった方が、Benchmark の値が良かったりするし。接続 -> キャッシュ取得 -> 切断で 0.6秒というのはちょっと遅すぎる。もうちょっといじってみれば実用的な速度になるのだろうか?

nDiki : 1月12日

2004年1月12日 (月)

過去の今ごろ

[ Perl ] Memcached を使ってみる

Memcached 1.1.10

Cache::Memcached 1.0.11

Cache::Memcached CVS

スピード

2005年1月12日 (水)

新年会 + 送別会

現代の経営 - P.F.ドラッカー

2006年1月12日 (木)

Windows でも Linux でも動くタスク管理ツール Task Coach

Python 2.4 用 wxPython のインストール

Task Coach のインストール

Windows へのインストールの場合

使い勝手

これがソニッケアーの威力なのか?

歯の定期健診

2007年1月12日 (金)

KDE BasKet、ランチャとしての使い勝手は?

2008年1月12日 (土)

今日のさえずり - いつから amaroK じゃなくなったんだ?

2009年1月12日 (月)

ケータイ向けベタつかないハンドクリーム

2010年1月12日 (火)

今日のさえずり - コーヒーにさきいか

2010年01月10日

2010年01月11日

2010年01月12日

2011年1月12日 (水)

今日のさえずり: 危機感で人は動くのか?

2011年01月12日

2012年1月12日 (木)

今日のさえずり: 社内 Wiki が死ぬと会議が死ぬ

2012年01月11日

2012年01月12日

2013年1月12日 (土)

iPad 2 をようやく iOS 6.0.1 にアップデートした

今日のさえずり: Google Chrome でサードパーティ cookie ブロックしてたからか。そういうの辛いわー。

2013年01月12日

2014年1月12日 (日)

お手頃なポーカーチップ 26mm (100枚入り)

初ダイバーシティ東京 プラザからのヴィーナスフォート

初めてがんだむ見た!

今日のさえずり: 日本酒呑みながら妻とこいこいした。なんて健全なんだ。

2014年01月12日

2015年1月12日 (月)

今年の小遣い帳は Zaim にした

今日のさえずり: 「チョコチップと鼻血デール」と覚えることにした

2015年01月12日

2016年1月12日 (火)

好きな本とか【日記】

今日のさえずり: 久しぶりに「道は開ける」を手に取っています

2016年01月12日

2017年1月12日 (木)

チェインクロニクル エメライン&フラット

今日のさえずり: 武蔵小山でパンを買ったところの渋谷ヒカリエ店

2017年01月12日

About Me

初ダイバーシティ東京プラザからのヴィーナスフォート

チェインクロニクルエメライン&フラット