[5] Memcached – Perl

To jest przykład użycia Memcached w Perlu.

[1] Zainstaluj Perl – patrz tutaj.

[2] Zainstaluj moduł klienta Perl Memcached.

# zainstaluj z EPEL
[root@vlsr01 ~]# dnf --enablerepo=epel install perl-Cache-Memcached

[3] To jest przykład użycia Memcached w Perlu.

[root@vlsr01 ~]# mcedit use_memcache.pl
# utwórz nowy
use strict;
use Cache::Memcached;
my $memcached = Cache::Memcached->new({
    servers => ["127.0.0.1:11211"]
});
# ustaw i pobierz klucz
$memcached->set('key01', 'value01');
print "key01.value : " . $memcached->get('key01') . "\n";
# dołącz i pobierz klucz
$memcached->append('key01', ',value02');
print "key01.value : " . $memcached->get('key01') . "\n";
$memcached->set('key02', 1);
print "key02.value : " . $memcached->get('key02') . "\n";
# inkrementuj
$memcached->incr('key02', 100);
print "key02.value : " . $memcached->get('key02') . "\n";
# dekrementuj
$memcached->decr('key02', 51);
print "key02.value : " . $memcached->get('key02') . "\n";

# uruchom
[root@vlsr01 ~]# perl use_memcache.pl
key01.value : value01
key01.value : value01,value02
key02.value : 1
key02.value : 101
key02.value : 50