memcached (クライアントライブラリ)

Debian etchmemcachedを導入した時の作業メモ。(クライアントライブラリ編)
Perlmemcachedクライアントライブラリのサンプルコード。

Perlmemcachedクライアントライブラリ

サンプルコード

#!/usr/bin/perl

use strict;
use warnings;
use Cache::Memcached;

my $key = "hoge";
my $value = "fuga";
my $expires = "3600";

my $memcached = Cache::Memcached->new({
    servers => ["memcached-server:11211"],
    compress_threshold => 10_000,
});

$memcached->set($key, $value, $expires);

my $res = $memcached->get($key);
print "$res\n";   # fuga

Cache::Memcached::Fast、Cache::Memcached::libmemcachedでも、同じコードでOK。
memcachedサーバ上で確認。

$ telnet localhost 11211
Trying 127.0.0.1...
Connected to localhost.
Escape character is '^]'.
get hoge   <- キー"hoge"のデータをget
VALUE hoge 0 4
fuga   <- データ
END
quit
Connection closed by foreign host.

*1:詳しくは、mixi engineer blog参照のこと