範圍操作者遞減從最大到最小：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--; 
}