php - perl 関数を php 関数に変換 (アンパック、パック)

Question

PHP で数値のバイナリ表現を数値に変換したいと考えています。私は現在Perlで以下を使用しています：

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

たとえば、binary2decimal('1101')return 13、およびbinary2decimal('1110')return 14。

Answer 1

おそらく、この関数が必要です: http://php.net/bindec

しかし、この実装も同じだと思います：

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