Perl foreach 控制结构中的控制变量

Perl语言中可以用foreach处理整个数组或列表。foreach从列表的第一个元素一直循环执行到最后一个元素，一次迭代一个：

 

   foreach $rock (qw{ bedrock slate lava}){

       print “One rock is $rock.\n”;

   }

 

控制变量(本例中为$rock)每一次迭代从列表中取出一个新值。第一次为“bedrock”，第三次为“lava”。

 

需要注意的是控制变量不是这些列表元素中的一个拷贝，而是这些元素本身！也就是说，如果在循环中修改这个变量，那原始列表中的元素也会被修改(当然，对于列表的修改似乎没有什么必要，但是对于数组就不一样了)，这条性质如果不清楚，可能对其结果感到吃惊。

 

   @rocks=qw{ bedrock slate lava};

   foreach $rock (@rocks){

     $rock="\t$rock";                         的每一个元素前都加入一个tab

     $rock.="\n";                             #每一个元素后都加入换行符

   }

   print "The rocks are :\n",@rocks;         

 

那么当循环结束是$rock的值为多少呢？其值通循环开始之前相同!foreach循环中控制变量的值会被Perl自动保存和恢复，当循环进行时，是没有办法改变其值得，循环结束时，变量的值会回到循环开始前，如果没有值则为undef。这意味着如果有一个变量和控制变量有相同的名字时，不用担心会混淆他们；也就是说，我们可以用已有的变量做循环变量，而不用担心它的值在循环中改变了。

 

$_ Perl中最常见的默认变量

 

如果在foreach循环中省略了控制变量，那Perl会使用其默认的变量：$_。除了其不寻常的名字外，这和普通的变量时一样的，如下面的代码所示：

 

foreach(1..10){

   print “I can count $_\n”;

}

 

当然$_不仅仅是能用在foreach中，虽然它不是Perl中唯一的默认变量，但无疑是使用最普遍的。你会看到许多例子中Perl在没有要求它使用某个变量或值得时候，会自动使用变量$_.这将节约程序员大量的时间来思考使用哪一个变量。请看下面的例子：

$_ = "Yabba dabba doo\n";

print;                     #打印出默认变量$_