范围操作者递减从最大到最小：10..1

Question

Perl有一个范围操作符，其在foreach循环使用时，不创建临时数组：如果第一个整数是小于

foreach (1 .. 1_000_000) { 
    # code 
} 

第二个整数，则没有迭代运行：

foreach (1_000_000 .. 1) { 
    # code here never runs 
} 

我可以使用reverse内置的，但这样做不守创建一个临时数组的优化？

foreach (reverse 1 .. 1_000_000) { 
    # code 
} 

有没有一种方法可以像范围运算符一样减少数字而不是增加？

Answer 1

不漂亮的解决方案，

for (my $i=1_000_000; $i >= 1; $i--) { 

    print "$i\n"; 
} 

Answer 2

您可以只是减去你从一个有数量超过该范围的顶部：

foreach (1 .. 1_000_000) { 
    my $n = 1_000_001 - $_; 
    ... 
} 

Answer 3

虽然for是好的，while可能更适合。

my $n = 1_000_000; 
while ($n >= 1) { 
    ... 
} continue { # continue block will always be called, even if next is used 
    $n--; 
}