perl中foreach 控制结构

river

如果能处理整个数组或列表，那将是非常方便的，因此Perl 提供了这种方法。foreach 从列表的第一个元素一直循环执行到
最后一个元素，一次迭代一个：
foreach $rock (qw/ bedrock slate lava /){
print “One rock is $rock.\n”; #打印出3 种rocks
}
控制变量（本例中为$rock）每一次迭代从列表中取出一个新值。第一次为“bedrock”,第三次为“lava”。
控制变量不是这些列表元素中的一个拷贝而是这些元素本身。也就是说，如果在循环中修改这个变量，那原始列表中的元
素也会被修改，如下面代码段所显示。这条性质是有用的，但是，如果不清楚，可能对其结果感到吃惊。
@rocks = qw/ bedrock slate lava /;
foreach $rocks(@rocks){
$rock = “\t$rock”; #@rocks 的每一个元素前加入一个tab
$rock . = “\n”; #每一个元素后加一个换行符
}
print “The rocks are:\n”,@rocks; #每一个元素都被缩进了，并且一个元素占一行
当循环结束时$rock 的值为多少呢？其值同循环开始之前相同。foreach 循环中控制变量的值会被Perl 自动保存和恢复。当
循环进行时，是没有办法改变其值的。循环结束时，变量的值会回到循环开始前，如果没有值则为undef。这意味着如果有
一个变量和控制变量有相同的名字：“$rock”，不用担心会混淆它们。