ITPub博客

首页 > 应用开发 > IT综合 > perl访问memcached

perl访问memcached

原创 IT综合 作者:wangzh3 时间:2012-11-12 15:16:49 0 删除 编辑
perl访问memcached,效率很高[@more@]
#!/usr/bin/perl
use strict;
use Cache::Memcached;
my @servers=("192.168.192.6:11211", "192.168.192.6:11311","192.168.192.6:11411","192.168.192.6:11511");
my $pushinfo="192.168.192.8";
foreach my $server(@servers)
{
my $cache = Cache::Memcached->new(servers => [$server]);
for(my $i=0;$i<1000000;$i++)
{
my $key = "10000".("0" x (6- length($i))).$i."00000";
$cache->set($key, $pushinfo, 3600 * 24 * 30);
if($i % 10000 ==0 )
{
print "already okay $in";
}
}
}

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/47869/viewspace-1059753/,如需转载,请注明出处,否则将追究法律责任。

上一篇: 研究erlang
下一篇: erlang for循环
请登录后发表评论 登录
全部评论
  • 博文量
    301
  • 访问量
    10828945