本文和大家重点讨论一下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会使用其默认的变量：$_。除了其不寻常的名字外，这和普通的变量时一样的，如下面的代码所示：
- Perl foreach(1..10){
- print“Icancount$_\n”;
- }
当然$_不仅仅是能用在Perl foreach中，虽然它不是Perl中唯一的默认变量，但无疑是使用最普遍的。你会看到许多例子中Perl在没有要求它使用某个变量或值得时候，会自动使用变量$_.这将节约程序员大量的时间来思考使用哪一个变量。请看下面的例子：
$_="Yabbadabbadoo\n";
print;#打印出默认变量$_
【编辑推荐】
