·

10.14K

· markus-perl

This method lists all stored memcache keys by dumping the cache.

/**
 * @ param string $server
 * @ param int $port
 * @ param int $limit
 * @ return array
 */
public function getMemcacheKeys ($server, $port, $limit = 10000)
{
 $keysFound = array();

 $options = $this->_options;
 $server = $options['servers'][0];
 $memcache = new Memcache;
 $memcache->connect($server, $port = 11211, 5);

 $slabs = $memcache->getExtendedStats('slabs');
 foreach ($slabs as $serverSlabs) {
 foreach ($serverSlabs as $slabId => $slabMeta) {
 try {
 $cacheDump = $memcache->getExtendedStats('cachedump', (int) $slabId, 1000);
 } catch (Exception $e) {
 continue;
 }

 if (!is_array($cacheDump)) {
 continue;
 }

 foreach ($cacheDump as $dump) {

 if (!is_array($dump)) {
 continue;
 }

 foreach ($dump as $key => $value) {
 $keysFound[] = $key;

 if (count($keysFound) == $limit) {
 return $keysFound;
 }
 }
 }
 }
 }

 return $keysFound;
}

Related protips

Have a fresh tip? Share with Coderwall community!

Post

Post a tip

Sponsored by

#native_company#

#native_desc#

#native_cta#

Post a job for only 299ドル

Sponsored by #native_company# — Learn More