How do I convert a binary string to a number in Perl?

Question

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

Answer 1

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