perl访问memcached

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/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/47869/viewspace-1059753/