読者です 読者をやめる 読者になる 読者になる

Cache::Memcached::Fastでexpireせず

setメソッドの第3引数(expiration time)にReadonlyな変数をセットすると、なぜかexpireしないというbugに当たって、えらく苦労したのでそのまとめ。

再現方法

試したバージョンは以下の通り。

  • memcached 1.2.6
  • Cache::Memcached::Fast 0.14


ローカルの11211ポートで動いているmemcachedに対して、600秒後にexpireするようset。

perl -MReadonly -MCache::Memcached::Fast -le '$c=Cache::Memcached::Fast->new(+{servers=>[+{address=>"localhost:11211"}]}); Readonly my $ttl => 600; $c->set("Readonly", "Readonly", $ttl)'

確認方法

statsコマンドを使ってキャッシュをdumpし、expiration timeを調べる

perl -MData::Dumper -MCache::Memcached -le '$c=Cache::Memcached->new(+{servers=>["localhost:11211"]}); $s=$c->stats("cachedump 1 100")->{hosts}{"localhost:11211"}; print Dumper $s'

statsコマンドからtimeとuptimeの差(=memcachedの起動時刻)を求める

perl -MTime::Piece -MCache::Memcached -le '$c=Cache::Memcached->new(+{servers=>["localhost:11211"]}); $misc=$c->stats("misc")->{hosts}{"localhost:11211"}{misc}; $t=localtime($misc->{time}-$misc->{uptime}); print $t->epoch'

これら2つが一致していたら、有効期限のないcacheとなる

CHANGESでbugを調べる

http://cpansearch.perl.org/src/KROKI/Cache-Memcached-Fast-0.19/Changes


CHANGES

0.18 2010-04-06
- make module thread-safe, and fix several bugs. No need to
upgrade unless you experienced limitations mentioned below.

Changes since 0.17:

Fix RT#56142: handle Perl magic. Tied scalars, arrays and
hashes are supported now, as well as Readonly variables and
other magic stuff.

まさにこのケース!!
ここに辿り着くまではだいぶ大変だったものの、Lazy Expirationを調べたり、キャッシュダンプする方法を知れたりと、色々勉強になりました。