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

问题描述

我怎么能转换成二进制字符串 $ x_bin =0001001100101其数值 $ x_num = 613 在Perl？

解决方案

 子BIN2DEC {
    返回解压（N，包（B32，SUBSTR（0×32移位，-32）））;
}
 

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屋！