perl 使用memcached客户端

	#! /usr/bin/perl
	use strict;
	use warnings;
	use Data::Dumper;
	use Cache::Memcached;


	my  $memd = new Cache::Memcached {
		'servers' => [ "test.xxx.net:22133"  ],'debug' => 0,'compress_threshold' => 10_000,};
	my $ret = $memd->stats('misc' );


	print Dumper($ret );

3.查看memcached队列是否堆积

#! /usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
   use Cache::Memcached;
 
my  $memd = new Cache::Memcached {
    'servers' => [ "xxx.xxx.com:22133"  ],};
my %ret = %{$memd->stats('misc' )};

  
my %data = %{$ret {'hosts'}{'xxx.xxx.com:22133'}{'misc'}};
#print Dumper($data);
my $sum =0;
foreach my $queue_name(keys %data) 
{ 
	if($queue_name =~ /items/ &&  $queue_name !~ /total/)
	{
		print $queue_name,"=",$data{$queue_name},"n";
		$sum += $data{$queue_name} ;
	}
}
print "sum=",$sum,"n";