大数的十进制和二进制转换

Question

我需要在Perl中将大数值从十进制转换为二进制，或者反过来。

以下是一个长度较大的示例数值：

Dec: 76982379919017706648824420266
Bin: 111110001011111001010101000010011001000010101111001110000000000000000000000000000000000000000000

我找到了两个函数:

sub dec2bin {
    my $str = unpack("B32", pack("N", shift));
    $str =~ s/^0+(?=\d)//;   # otherwise you'll get leading zeros
    return $str;
}
sub bin2dec {
    return unpack("N", pack("B32", substr("0" x 32 . shift, -32)));
}

但是，它们似乎都无法处理大数字。

Output of
bin2dec(111110001011111001010101000010011001000010101111001110000000000000000000000000000000000000000000)
is 1543163 
and output of
dec2bin(76982379919017706422040262422)
is 11111111111111111111111111111111

有没有一种适当的方法来处理这么大的数字？

- valentin

Answer 1

您可以使用Math::BigInt。请注意，这些函数的输入应该是字符串。

use Math::BigInt;

sub bin2dec {
  my $bin = shift;
  return Math::BigInt->new("0b$bin");
}

sub dec2bin {
  my $dec = shift;
  my $i = Math::BigInt->new($dec);
  return substr($i->as_bin(), 2);
}

print "Dec: " . bin2dec("111110001011111001010101000010011001000010101111001110000000000000000000000000000000000000000000") . "\n";
print "Bin: " . dec2bin("76982379919017706648824420266") . "\n";

输出结果为：

Dec: 76982379919017710405206147072
Bin: 111110001011111001010101000010011001000010101111001101001001010101100110001100111001011110101010

- Gyrocode.com

Answer 2

Perl提供了内置的bignum工具。使用use bignum;打开它们。你的转换函数看起来会像这样：

use bignum;
my ($b_orig, $d_orig, $b, $d);

$d_orig = 76982379919017706648824420266;
$b_orig = '111110001011111001010101000010011001000010101111001110000000000000000000000000000000000000000000';

print ("dec($b_orig) [orig] = $d_orig;\n");
print ("dec($b_orig) [comp] = " . Math::BigInt->from_bin($b_orig) . ";\n");
print ("bin($d_orig) [orig] = $b_orig;\n");
print ("bin($d_orig) [comp] = ".substr(Math::BigInt->new($d_orig)->as_bin(), 2).";\n");

警告：

您提供的二进制和十进制数字之间没有对应关系。我还没有检查这是否是bigint库的缺陷。

- collapsar

Answer 3

Perl的bigint为大整数提供透明支持：

perl -Mbigint -E 'say oct "0b111110001011111001010101000010011001000010101111001110000000000000000000000000000000000000000000"'
76982379919017710405206147072

您不需要编写自己的转换程序。 oct将为您进行转换。

- Sinan Ünür