Big Sky

http://d.hatena.ne.jp/gfx/20081007/1223340787

こう？ #!perl -w
use strict;
use Test::More 'no_plan';
sub f{
    # 何かする
    package ::Foo;
}
f();
is ref(bless({}, 'Foo')), 'Foo';
__END__


tokuhiromさんやkazeburoさんの言うように私の所もFastが速かった。

perl の memcached libraries の速度検証 - TokuLog 改めB日記

ワタシの環境だと、Cache::Memcached::Fast の方が速いようだ。

個人的には、 mixi のような大きなサービスでの採用実績があり、速度的にも速い C::M::Fast が現時点ではいい選択肢だとおもう。C::M::libmemcached は、まだまだ開発発展途上な感じなので、もうちょい落ち着くまでは仕事では使えない印象だし。

http://d.hatena.ne.jp/tokuhirom/20080926/1222408445

結果は以下の通り。
Module Information:
 + Cache::Memcached => 1.24
 + Cache::Memcached::Fast => 0.12
 + Cache::Memcached::libmemcached => 0.02008
 + Memcached::libmemcached => 0.2101

Library Information:
 + libmemcached => 0.24

Server Information:
 + localhost:11211 => 1.2.1

Options:
 + Memcached server: localhost:11211
 + Include no block mode (where applicable)? :NO

Prepping clients...

==== Benchmark "Simple get() (scalar)" ====
                  Rate perl_memcached   libmemcached memcached_fast
perl_memcached  2319/s             --           -83%           -86%
libmemcached   13387/s           477%             --           -18%
memcached_fast 16244/s           601%            21%             --
==== Benchmark "Simple get_multi() (scalar)" ====
                 Rate perl_memcached   libmemcached memcached_fast
perl_memcached  664/s             --           -81%           -91%
libmemcached   3509/s           428%             --           -52%
memcached_fast 7306/s          1000%           108%             --
==== Benchmark "Serialization with get()" ====
                  Rate perl_memcached   libmemcached memcached_fast
perl_memcached  2104/s             --           -77%           -81%
libmemcached    8964/s           326%             --           -19%
memcached_fast 11114/s           428%            24%             --
==== Benchmark "Simple get() (w/compression)" ====
                 Rate perl_memcached   libmemcached memcached_fast
perl_memcached  972/s             --           -43%           -43%
libmemcached   1706/s            75%             --            -1%
memcached_fast 1720/s            77%             1%             --
==== Benchmark "Simple set() (scalar)" ====
                  Rate perl_memcached   libmemcached memcached_fast
perl_memcached  5316/s             --           -55%           -71%
libmemcached   11851/s           123%             --           -36%
memcached_fast 18389/s           246%            55%             --
==== Benchmark "Simple set() (w/seriale)" ====
                 Rate perl_memcached   libmemcached memcached_fast
perl_memcached 3190/s             --           -49%           -52%
libmemcached   6201/s            94%             --            -7%
memcached_fast 6668/s           109%             8%             --
==== Benchmark "Simple set() (w/compress)" ====
                Rate perl_memcached   libmemcached memcached_fast
perl_memcached 315/s             --            -2%            -8%
libmemcached   322/s             2%             --            -6%
memcached_fast 342/s             8%             6%             --
Cache::Memcached::Fastのwin32版は、まだ汚いポーティングなので、後日codereposにあげる予定。

オリジナルはperl版でGTKを使ったUIになっています。

これを、python(pygtk)、ruby(ruby-gnome2)、lua(lua-gtk)、C(GTK)、java(Swing)に移植してみた。
オリジナルから小さいコードなので、簡単なものですが...
興味のある方は、この辺を覗いて下さい。