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

本文和大家重点讨论一下Perl foreach用法，Perl语言中可以用Perl foreach处理整个数组或列表，并且控制变量(本例中为$rock)每一次迭代从列表中取出一个新值。

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

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

Perl foreach$rock(qw{bedrockslatelava}){  


print“Onerockis$rock.\n”;  


}  


 

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

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

@rocks=qw{bedrockslatelava};  


Perl foreach$rock(@rocks){  



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




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



}  


print"Therocksare:\n",@rocks;  


 

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

◆Perl中最常见的默认变量

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