38

How can I convert the binary string $x_bin="0001001100101" to its numeric value $x_num=613 in Perl?

5 Answers 5

73

My preferred way is:

$x_num = oct("0b" . $x_bin);

Quoting from man perlfunc:

    oct EXPR
    oct     Interprets EXPR as an octal string and returns the
            corresponding value. (If EXPR happens to start
            off with "0x", interprets it as a hex string. If
            EXPR starts off with "0b", it is interpreted as a
            binary string. Leading whitespace is ignored in
            all three cases.)
2
  • @edg: that's to be expected on a 32 bit platform; works for me with 64 bits, albeit with a portability warning.
    – ysth
    Jan 28, 2009 at 1:28
  • 3
    I always used pack, but I just benchmarked pack, oct, and Bit::Vector and this is by far the fastest of the three. It is 1449% faster than Bit::Vector and 316% faster than pack on my system.
    – gpojd
    Jan 28, 2009 at 1:48
25
sub bin2dec {
    return unpack("N", pack("B32", substr("0" x 32 . shift, -32)));
}
2
  • 3
    Every tool I ask tells me that 111111111111111111111111111111111 translates to 8589934591. Just how sure are you that 42949672958589934591 is correct?
    – innaM
    Jan 27, 2009 at 19:42
  • 2
    This is done by the built-in oct() too, although it's a pretty poor name for it. Jan 28, 2009 at 0:04
12

As usual, there's is also an excellent CPAN module that should be mentioned here: Bit::Vector.

The transformation would look something like this:

use Bit::Vector;

my $v = Bit::Vector->new_Bin( 32, '0001001100101' );
print "hex: ", $v->to_Hex(), "\n";
print "dec: ", $v->to_Dec(), "\n";

The binary strings can be of almost any length and you can do other neat stuff like bit-shifting, etc.

7

Actually you can just stick '0b' on the front and it's treated as a binary number.

perl -le 'print 0b101'
5

But this only works for a bareword.

0
0

You can use the eval() method to work around the bare-word restriction:

eval "\$num=0b$str;";

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Not the answer you're looking for? Browse other questions tagged or ask your own question.