PERL在foreach循環中的作用域

Question

我有一個perl作用域問題。

use strict; 
use warnings; 

our @cycles = (0,1,2,3,4); 

foreach my $cycle (@cycles){ 
    my $nextcycle = 0; 
    foreach $nextcycle (@cycles){ 
     if ($cycle+1 == $nextcycle){ 
      print "found cycle+1, $nextcycle\n"; 
      last; 
     } 
    } 
    print "current=$cycle, nextcycle=$nextcycle\n"; 
} 

輸出I得到：

發現週期+ 1，1

電流= 0，nextcycle = 0

發現週期+ 1，2

電流= 1，nextcycle = 0

found cycle + 1，3

電流= 2，nextcycle = 0

發現週期+ 1，4

電流= 3，nextcycle = 0

電流= 4，nextcycle = 0

我預計此：

找到週期+ 1，1

電流= 0，nextcycle = 1

發現週期+ 1，2

電流= 1，nextcycle = 2

發現週期+ 1，3

電流= 2，nextcycle = 3

發現週期+ 1，4

電流= 3，nextcycle = 4

電流= 4，nextcycle = 0

我進一步修改循環看起來像這一點，得到了我想要的東西：

use strict; 
use warnings; 

our @cycles = (0,1,2,3,4); 

foreach my $cycle (@cycles){ 
    my $nextcycle = 0; 
    foreach my $tempcycle (@cycles){ 
     if ($cycle+1 == $tempcycle){ 
      $nextcycle = $tempcycle; 
      print "found cycle+1, $nextcycle\n"; 
      last; 
     } 
    } 
    print "current=$cycle, nextcycle=$nextcycle\n"; 
} 

我想知道爲什麼第一個循環沒有工作！

Answer 1

foreach my ...中變量的範圍是foreach循環本身。從perldoc perlsyn：

有一個微小的差別：如果變量在 宣佈與my的for的初始化部分，這些 變量的詞彙範圍，是完全for循環（循環和體 控制部分）。

Answer 2

從Perl manual on the foreach construct：

在 正常列表值foreach循環迭代並設置 變量VAR是 列表反過來的每個元素。如果變量是 前面是關鍵字my，那麼它 是詞彙範圍的，因此 僅在循環內可見。 否則，該變量隱式地爲 局部於循環，並在退出循環時重新獲得其前值。