CentOS Stream 8
Sponsored Link

Memcached : Perl で利用する2021/06/21

 
Perl からの Memcached 利用例です。
[1] Perl の Memcached クライアントモジュールをインストールしておきます。
# EPEL からインストール

[root@dlp ~]#
dnf --enablerepo=epel -y install perl-Cache-Memcached
[2] 基本的な利用方法サンプルです。
[cent@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";

# 実行

[cent@dlp ~]$
perl use_memcache.pl

key01.value : value01
key01.value : value01,value02
key02.value : 1
key02.value : 101
key02.value : 50
関連コンテンツ