eleksir/misc
1
Fork 0
Code Activity

added memc-list3.pl

Browse Source
This commit is contained in:
eleksir
2018-05-23 14:24:50 +03:00
parent 4588c0fe5f
commit 339f70d431
1 changed files with 67 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

67
memc-list3.pl Executable file
View File

@@ -0,0 +1,67 @@
#!/usr/bin/perl
#
use warnings "all";
use strict;
use Cache::Memcached;
use Data::Dumper;
my $mc = '127.0.0.1:11212';
my $memd = new Cache::Memcached { 'servers' => [ $mc ] };
my $slabs_total;
my $itemref = $memd->stats(['slabs']);
foreach ( split(/\n/, $itemref->{'hosts'}->{$mc}->{'slabs'})) {
if($_ =~ /active_slabs (\d+)/) {
$slabs_total = $1;
last;
}
}
if ($slabs_total == 0) {
print "no slabs!\n";
exit 0;
}
$itemref = $memd->stats(['items']);
if (defined($itemref->{'hosts'}->{$mc}->{'items'})
and (length($itemref->{'hosts'}->{$mc}->{'items'}) > 2)) {
foreach my $stat (split("\n", $itemref->{'hosts'}->{$mc}->{'items'})) {
my $slab;
my $itemsamount;
if ($stat =~ /^STAT items\:(\d+)\:number (\d+)/) {
$slab = $1;
$itemsamount = $2;
} else {
undef $slab;
undef $itemsamount;
next;
}
my $cachedump = $memd->stats(["cachedump $slab $itemsamount"]);
my @keys = map {
(split(/ /))[1];
} split(/\n/, $cachedump->{'hosts'}->{$mc}->{"cachedump $slab $itemsamount"});
foreach my $key (@keys) {
my $url = $memd->get($key) // "not defined";
printf ("+ %s -> %s\n", $key, $url);
undef $url;
#$memd->delete($key);
}
undef $slab;
undef $itemsamount;
undef $cachedump;
@keys = -1;
undef @keys;
}
}
$memd->disconnect_all;
#print Dumper(\%INC);