将perl函数转换为php函数（解包，打包）

Question

我想将数字的二进制表示转换为PHP中的数字。我目前在Perl中使用以下内容：

sub binary2decimal {
    return unpack("N", pack("B32", substr("0" x 32 . shift, -32)));
}

例如，binary2decimal('1101')返回13，binary2decimal('1110')返回14。

Answer 1

您可能需要此功能：http://php.net/bindec

但我认为这个实现也是如此：

function binary2decimal($param) {
  return unpack("N", pack("B32",substr(str_repeat("0",32) . $param, -32)));
}