livedoor Readerサービス終了のお知らせ 2014年12月をもちまして、LINE株式会社が提供するlivedoor Readerの運営を終了しております。 長きに渡りご愛顧をいただきまして、誠にありがとうございました。 livedoorホームへ戻る
livedoor Readerサービス終了のお知らせ 2014年12月をもちまして、LINE株式会社が提供するlivedoor Readerの運営を終了しております。 長きに渡りご愛顧をいただきまして、誠にありがとうございました。 livedoorホームへ戻る
Cache::Memcached::LibMemcached の非同期モードはありえないくらい速い。 先輩! 仕事で疲れた脳を休めようと、先ほどlibmemcachedが備えているno_blockをCache::Memcached::LibMemcachedからも設定できるようにしてみたんです。で、ベンチマークを取ってみたところ・・・ daisuke@beefcake Cache-Memcached-LibMemcached$ perl -Mblib tools/benchmark.pl ==== Benchmark "Simple set() (scalar)" ==== (warning: too few iterations for a reliable count) Rate perl_memcahed memcached_fast libmemcached libmemcac
Cache::Memcached::LibMemcached これを今朝読んだのでCache::Memcached::LibMemcachedを作ったよ! なんか用途が広そうなのでcodereposに入れました。 使い方はSYNOPSISの通り。Cache::Memcachedとほぼ一緒。まだまだ足りないメソッドがあるのでその辺はコミットしちゃってくださいw use Cache::Memcached::LibMemcached; my $memd = Cache::Memcached::LibMemcached->new({ serves => [ "10.0.0.15:11211", "10.0.0.15:11212", "/var/sock/memcached" ], compress_threshold => 10_000 }); $memd->set("my_key", "Som
Adminってもんでもないけど、 いちいちtelnetで話すのも面倒だしみたいな。 すげーてきとう。 package Cache::Memcached::Admin; use strict; use warnings; use base qw/Class::Accessor::Fast/; use Term::ReadLine; use File::HomeDir; use Path::Class; use List::MoreUtils qw/uniq/; use Cache::Memcached; sub run { my $self = shift; my $term = Term::ReadLine->new('Cache::Memcached::Admin'); my $HISTFILE = file( File::HomeDir->my_home, '/.memcached_a
久々に cool な CPAN モジュールを紹介してみたりする。 memcached を Cache::Memcached から操作してると、キーの一覧が取得したい時があったりして、まぁ、memcached の仕様的にはそれが出来ないんですが、Cache::Memcached::Indexable というモジュールを使うことによって、取得出来る風です。 風ってだけに、実際は違うんですが。 概念的には Cache::Memcached 風のインターフェースで、set() やら get() やら delete() する時に、そのキーから、数パターンに納まる、本当に保存すべき key を取ってきて、そこに保存された、ちょっと大き目の hashref から、保存したり、取り出したり、削除したりするって概念。 use strict; use Cache::Memcached::Indexable;
なんかすでにありそう。 コードはSledge::Cacheのまんまパクリ。 package Cache::Memcached::CallBack; use strict; use warnings; use base 'Cache::Memcached'; sub get_callback { my ($self, $key, $callback, $expiry) = @_; my $data = $self->get($key); return $data if defined $data; $data = $callback->(); $self->set( $key => $data , $expiry ) if defined $data; return $data; } 1; ↑の感じの拡張にすべきか ↓の感じの拡張にすべきか package Cache::Memcached:
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く