Perl 数组 foreach 循环详解12

在 Perl 中，foreach 循环是一种用来遍历数组或哈希中的元素的强大工具。它允许您轻松地对每个元素执行特定操作。## 语法
```perl
foreach my $element (@array) {
# 处理 $element
}
```
其中：
* `@array` 是要遍历的数组或哈希
* `my $element` 是循环中的元素变量
## 示例
以下示例演示如何使用 foreach 循环遍历数组中的元素：
```perl
my @fruits = ('apple', 'banana', 'cherry');
foreach my $fruit (@fruits) {
print "$fruit";
}
```
输出：
```
apple
banana
cherry
```
## 遍历哈希
foreach 循环也可以用于遍历哈希：
```perl
my %hash = (
'name' => 'John',
'age' => 30,
'city' => 'New York',
);
foreach my $key (keys %hash) {
print "$key => $hash{$key}";
}
```
输出：
```
name => John
age => 30
city => New York
```
## 控制循环
在某些情况下，您可能需要控制 foreach 循环的行为。Perl 提供了以下控制关键字：
* next：跳过当前迭代并继续下一个迭代
* last：立即退出循环
* redo：重新执行当前迭代
以下示例演示如何使用这些关键字：
```perl
foreach my $number (1 .. 10) {
if ($number % 2 == 0) {
next;
}
print "$number";
}
```
输出：
```
1
3
5
7
9
```
## 同时遍历多个数组
Perl 允许您同时遍历多个数组。这称为“列表展开”。语法如下：
```perl
foreach my $element (@array1, @array2, @array3) {
# 处理 $element
}
```
以下示例同时遍历两个数组：
```perl
my @array1 = (1, 2, 3);
my @array2 = ('a', 'b', 'c');
foreach my $element (@array1, @array2) {
print "$element";
}
```
输出：
```
1
a
2
b
3
c
```
## 自定义迭代变量
默认情况下，foreach 循环使用 `my $element` 作为迭代变量。但是，您可以使用 `my` 关键字自定义变量名：
```perl
foreach my $fruit as @fruits {
# 处理 $fruit
}
```
## 使用块
您可以使用块（closure）来封装 foreach 循环中的代码。这使您可以执行更复杂的逻辑操作：
```perl
my @numbers = (1, 2, 3, 4, 5);
my $sum = 0;
foreach my $number (@numbers) {
$sum += $number;
}
print "The sum of the numbers is $sum";
```
输出：
```
The sum of the numbers is 15
```
## 注意事项
使用 foreach 循环时，请注意以下几点：
* 迭代变量是一个只读变量，您不能修改它
* foreach 循环遍历数组或哈希的副本，因此对原数组或哈希的更改不会影响循环
* 如果您需要修改原数组或哈希，请使用 `for` 循环而不是 foreach 循环