我一直在试图弄清楚Pack/Unpack的PHP实现是否可以做Perl版本能够做的事情
http://perldoc.perl.org/perlpacktut.html#String-长度
# pack a message: ASCIIZ, ASCIIZ, length/string, byte
my $msg = pack( 'Z* Z* C/A* C', $src, $dst, $sm, $prio );
# unpack
( $src, $dst, $sm, $prio ) = unpack( 'Z* Z* C/A* C', $msg );
这个Perl代码的作用描述为：
使用斜杠（/）组合两个pack代码将它们与参数列表中的单个值。在包装中参数根据第一个代码进行获取和打包，而参数本身是在使用模板代码转换后添加的斜杠之后。
也就是说，您可以打包可变长度的字符串，然后在一个步骤中对其进行解压缩，而不必先计算字符串的长度，然后将其作为单独的步骤进行提取。
PHP手册中没有提到这一功能，任何试图在解包中插入"C/a*"这样的模式的尝试都会给我带来错误。这是手册中的疏忽还是PHP版本不支持的？
PHP打包和解包函数不幸地没有像Perl那样提供变量（以null结尾）字符串的自动打包和解封。
为了适应这个功能，可以考虑将unpack函数封装到一个帮助类中，如下所示：
class Packer {
static function unpack($mask, $data, &$pos) {
try {
$result = array();
$pos = 0;
foreach($mask as $field) {
$subject = substr($data, $pos);
$type = $field[0];
$name = $field[1];
switch($type) {
case 'N':
case 'n':
case 'C':
case 'c':
$temp = unpack("{$type}temp", $subject);
$result[$name] = $temp['temp'];
if($type=='N') {
$result[$name] = (int)$result[$name];
}
$pos += ($type=='N' ? 4 : ($type=='n' ? 2 : 1));
break;
case 'a':
$nullPos = strpos($subject, "'0") + 1;
$temp = unpack("a{$nullPos}temp", $subject);
$result[$name] = $temp['temp'];
$pos += $nullPos;
break;
}
}
return $result;
} catch(Exception $e) {
$message = $e->getMessage();
throw new Exception("unpack failed with error '{$message}'");
}
}
}
请注意，此函数并没有实现所有的解包类型，只是作为一个示例。