如何在 Perl 中将二进制字符串转换为数字? [英] How do I convert a binary string to a number in Perl?

问题描述

如何在 Perl 中将二进制字符串 $x_bin="0001001100101" 转换为其数值 $x_num=613?

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

推荐答案

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

这篇关于如何在 Perl 中将二进制字符串转换为数字?的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！