perl - 如何确定 perl 的范围迭代器的最大范围？

Question

我可以像这样超过 perl 的迭代范围，有或没有-Mbigint：

$» perl -E 'say $^V; say for (0..shift)' 1e19
v5.16.2
Range iterator outside integer range at -e line 1.

我怎样才能确定这个上限，而不是简单地尝试直到超过它？

Answer 1

这是静脉注射。

>>同样适用于整数，因此您可以使用

my $max_iv = -1 >> 1;
my $min_iv = -(-1 >> 1) - 1;

它们也可以从 IV 的大小得出。

my $max_iv = (1 << ($iv_bits-1)) - 1;
my $min_iv = -(1 << ($iv_bits-1));

IV的大小可以使用

use Config qw( %Config );
my $iv_bits = 8 * $Config{ivsize};

或者

my $iv_bits = 8 * length pack 'j', 0;