Memcached : Perl पर प्रयोग करें2024/07/22

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";