无论是否有 -Mbigint
,我都可以像这样超出 perl 的范围迭代界限。 :
$» perl -E 'say $^V; say for (0..shift)' 1e19
v5.16.2
Range iterator outside integer range at -e line 1.
我如何确定这个上限,而不是简单地尝试直到我超过它?
最佳答案
这是一个IV。>>
同样适用于整数,因此您可以使用
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;
关于perl - 如何确定 perl 范围迭代器的最大范围?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/16156698/