my @a = qw /a c e g/;
for my $i (@a){
$i++;
}
print @a;
for my $i (@a){
$i++;
}
print @a;
result:
bdfh
如果 LIST 完全包含可赋值元素(通常也就是说变量,而不是枚举常量),你可以通过修改循环内的 VAR 来修改每个变量。这是因为 foreache 循环的索引变量隐含地是你正在逐一取出的列表的每个元素的别名。你不仅可以现场修改单个列表,你还可以修改在一个列表里的多个数组和散列:
foreach $pay (@salaries) { # 赋予 8%的提升
$pay *= 1.08;
}
for (@christmas, @easter) {
s/ham/turkey/; # 修改菜单(译注:这可真的是菜单)
}
s/ham/turkey/ for @christmas, @easter; # 和上面一样的东西
for ($scalar, @array, values %hash) {
s/^/s+//; #删除开头的空白
s//s+$//; #删除结尾的空白
}
<script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>

本文介绍了Perl编程语言中如何利用foreach循环对列表进行操作的方法,包括如何修改列表中的元素、如何对数组和散列进行批量处理等技巧。

5692

被折叠的 条评论
为什么被折叠?



