导出或导入 memcached 的数据

导出或导入memcached的数据。 示例： 导出到文件：memcachedump-hlocalhost-p11211-fmem.dump 从文件导入：memcachedump-hlocalhost-p11211-fmem.dump-i 问题：丢失了item的过期信息。如果item在导入之后n秒过期，则导入后变成了永久不过期。 如何解决？ 无 ?

导出或导入 memcached 的数据。
示例：
导出到文件：memcachedump -hlocalhost -p11211 -f mem.dump
从文件导入：memcachedump -hlocalhost -p11211 -f mem.dump -i

问题：丢失了item的过期信息。如果item在导入之后n秒过期，则导入后变成了永久不过期。
如何解决？

connect($host, $port, $timeout)) {
            $pool["{$host}:{$port}"] = $mc;
        } else {
            return null;
        }
    }
    return $pool["{$host}:{$port}"];
}

function pack2DWord($n) {
    $a = (0xFF000000 & $n) >> 24;
    $b = (0x00FF0000 & $n) >> 16;
    $c = (0x0000FF00 & $n) >> 8;
    $d = 0x000000FF & $n;
    return pack('CCCC', $a, $b, $c, $d);
}

function unpackDWord($s) {
    $a = (0xFFFFFFFF & ord($s{0})) getExtendedStats('slabs');
    foreach ($server_slabs as $server => $slabs) {
        foreach ($slabs as $slab_id => $slab_meta) {
            if (!is_int($slab_id)) {
                continue;
            }
            $dump = $mc->getExtendedStats('cachedump', (int)$slab_id, (int)$slab_meta['used_chunks']);
            foreach ($dump as $server => $entries) {
                if (!$entries) {
                    continue;
                }
                foreach ($entries as $key => $meta) {
                    if ($prefix && ($prefix !== substr($key, 0, strlen($prefix)))) {
                        continue;
                    }
                    $val = $mc->get($key);
                    if (empty($val)) {
                        continue;
                    }
                    $kl = pack2DWord(strlen($key));
                    $vl = pack2DWord((int)$meta[0]);
                    fwrite($file, "{$kl}{$vl}{$key}{$val}");
                }
            }
        }
    }
}

/**
 * 
 * @param \MemCache $mc
 * @param type $file
 */
function memcachedump_import($mc, $file) {
    while (!feof($file)) {
        $ks = fread($file, 4);
        if (feof($file) || !isset($ks{3})) {
            continue;
        }
        $vs = fread($file, 4);
        if (feof($file) || !isset($vs{3})) {
            continue;
        }
        $kl = unpackDWord($ks);
        $vl = unpackDWord($vs);
        if (($kl set($key, $val);
    }
}

/**
 * 解释参数，可以解释以下类型：
 *     -p
 *     -pVALUE
 *     -p value
 *     --param value
 *     -p=value
 *     --param=value
 *     param=value
 * @param array $argv
 * @return array
 */
function args_parse($argv) {
    if (!is_array($argv) || empty($argv)) {
        return array();
    }
    $argc = count($argv);
    $ret = array();
    for ($i = 0; $i  0) { // -p=value --param=value param=value
            list($arg_name, $arg_value) = explode('=', ltrim($arg, '-'), 2);
            $ret[$arg_name] = $arg_value;
            continue;
        }
        if ($arg{0} !== '-') {
            continue;
        }
        if (($arg{1} !== '-') && isset($arg{2})) {// -pVALUE
            $ret[$arg{1}] = substr($arg, 2);
            continue;
        } else if (isset($argv[$i + 1]) && ($argv[$i + 1]{0} !== '-') && (false === strpos($arg, '='))) {
            $ret[ltrim($arg, '-')] = $argv[$i + 1];
            ++$i;
        } else {
            $ret[ltrim($arg, '-')] = true;
        }
    }
    return $ret;
}