我有一个包含64个二进制符号的字符串。
我需要将其转换为十进制数。我怎么能在perl中做到?
sub bin2dec {
return unpack("N", pack("B64", substr("0" x 64 . shift, -64)));
}
不起作用。它只转换前32位。
答案 0 :(得分:8)
来自docs,
N An unsigned long (32-bit) in "network" (big-endian) order.
64位等效值为“Q>
”。
q A signed quad (64-bit) value.
Q An unsigned quad value.
(Quads are available only if your system supports 64-bit
integer values _and_ if Perl has been compiled to support
those. Raises an exception otherwise.)
> sSiIlLqQ Force big-endian byte-order on the type.
jJfFdDpP (The "big end" touches the construct.)
所以你可以使用以下内容:
unpack("Q>", pack("B64", substr("0" x 64 . shift, -64)))
那就是说,以上是不必要的复杂化。那些编码的人可能不知道oct
能够解析二进制数,因为上面的内容可以简化为
oct("0b" . shift)
但是如果你没有64位构建的Perl,你会怎么做?您需要使用某种重载数学运算的对象。你可以使用Math::BigInt,但我怀疑它不会像Math::Int64那么快。
use Math::Int64 qw( string_to_int64 );
string_to_int64(shift, 2)
例如,
$ perl -MMath::Int64=string_to_int64 -E'say string_to_int64(shift, 2);' \
100000000000000000000000000000000
4294967296
答案 1 :(得分:4)
use Math::BigInt;
my $b = Math::BigInt->new('0b1010000110100001101000011010000110100001101000011010000110100001');
print $b;
只是想法,而不是你的子程序的等效代码 这里的二进制数是任意的。使用你的。