Memcached : Perl で利用する2024/09/16 |
Perl からの Memcached 利用例です。 |
|
[1] | Perl の Memcached クライアントモジュールをインストールしておきます。 |
root@dlp:~ # pkg install -y p5-Cache-Memcached
|
[2] | 基本的な利用方法サンプルです。 |
freebsd@dlp:~ $
vi use_memcache.pl use strict; use Cache::Memcached; my $memcached = Cache::Memcached->new({ servers => ["127.0.0.1:11211"] }); # キーに値をセットして表示 $memcached->set('key01', 'value01'); print "key01.value : " . $memcached->get('key01') . "\n"; # キーに値をアペンドして表示 $memcached->append('key01', ',value02'); print "key01.value : " . $memcached->get('key01') . "\n"; $memcached->set('key02', 1); print "key02.value : " . $memcached->get('key02') . "\n"; # 加算 $memcached->incr('key02', 100); print "key02.value : " . $memcached->get('key02') . "\n"; # 減算 $memcached->decr('key02', 51); print "key02.value : " . $memcached->get('key02') . "\n"; # 実行 freebsd@dlp:~ $ perl use_memcache.pl key01.value : value01 key01.value : value01,value02 key02.value : 1 key02.value : 101 key02.value : 50 |
Sponsored Link |