论坛 › Memcached › memcahced perl 测试

r2wee 发表于 2014-8-6 09:10:14

memcahced perl 测试

use Cache::Memcached;

my $key = "foo";
my $value = "bar";
my $expires = 3600; # 1 hour
my $memcached = Cache::Memcached->new({
    servers => ["127.0.0.1:11211"],
      compress_threshold => 10_000
      });

      $memcached->add($key, $value, $expires);
      my $ret = $memcached->get($key);
      print "$ret\n";

查看完整版本: memcahced perl 测试