将 Perl 代码转换为 PHP

我需要将以下 perl 函数转换为 php：

pack("SSA12AC4L",
     $id,
     $loc,
     $name,
     'ar',
     split(/\./, $get->getIP),
     time+(60*60);

我在 PHP 中使用以下代码（用于测试）：

echo pack("SSA12AC4L",
     '25',
     '00001',
     '2u7wx6fd94fd',
     'f',
     preg_split('/\./','10.2.1.1', -1, PREG_SPLIT_NO_EMPTY),
     time()+(60*60));

但我收到以下错误： 警告：pack() [function.pack]：类型 C：第 8 行 D:\wamp\www\test.php 中的参数太少

有什么建议么？多谢。

来自 PHP 文档pack() http://php.net/manual/en/function.pack.php.

将给定参数打包成二进制文件 根据格式的字符串。

这个函数的想法被采纳了 来自 Perl 和所有格式化代码 与 Perl 中的工作方式相同。然而， 有一些格式化代码 缺少诸如 Perl 的“u”格式 代码。

当然它应该按原样工作吗？您可能需要重命名一些变量