我可以超过perl的范围迭代界限,有或没有-Mbigint:
$» 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;