Perl foreach 循环 -- 遍历数组、哈希和列表398

Perl 中的 foreach 循环是一种用于遍历数组、哈希和列表的强大工具。它允许您以一致且有效的方式访问和处理每个元素。

语法foreach 循环的一般语法如下：
```perl
foreach $var ( @array, %hash, @list ) {
# 这里写循环体
}
```
其中：
* `$var` 是遍历的变量，用于存储当前元素。
* `@array`、`%hash` 和 `@list` 是要遍历的数据结构。可以同时指定多个数据结构。

遍历数组遍历数组时，`$var` 会被依次赋值为数组中的每个元素。例如：
```perl
my @numbers = (1, 2, 3, 4, 5);
foreach my $number (@numbers) {
print "$number ";
}
```
输出：
```
1 2 3 4 5
```

遍历哈希遍历哈希时，`$var` 会被依次赋值为哈希中键值对的键。键和值可以用特殊的变量 `$_KEY` 和 `$_VALUE` 访问。例如：
```perl
my %cities = (
'Beijing' => 'China',
'Tokyo' => 'Japan',
'New York' => 'USA'
);
foreach my $city (%cities) {
print "$city: $cities{$city}";
}
```
输出：
```
Beijing: China
Tokyo: Japan
New York: USA
```

遍历列表列表是一种特殊的数组，它允许您存储异构数据类型。遍历列表时，`$var` 会被依次赋值为列表中的每个元素。例如：
```perl
my @list = (1, 'foo', 3.14, undef);
foreach my $item (@list) {
print "$item";
}
```
输出：
```
1
foo
3.14
undef
```

使用控制流可以在 foreach 循环中使用控制流语句，如 `next`、`last` 和 `return`。这些语句可以控制循环的执行流程。
* `next` 会跳过当前元素并继续执行下一轮循环。
* `last` 会立即退出循环。
* `return` 会退出当前作用域，包括循环。
例如：
```perl
foreach my $number (1 .. 10) {
if ($number % 2 == 0) {
next;
}
print "$number ";
}
```
输出：
```
1 3 5 7 9
```

自定义变量名在某些情况下，您可能希望使用自定义变量名来遍历元素。您可以使用 `my` 关键字来声明自定义变量。例如：
```perl
foreach my $key (keys %cities) {
print "$key: $cities{$key}";
}
```

注意事项* 遍历哈希时，默认情况下会按键值对的键进行遍历。如果需要按值进行遍历，可以使用 `values` 函数。
* 遍历列表时，如果列表中包含引用类型，则 `foreach` 会对其进行浅层拷贝。这意味着如果在循环中修改了引用的对象，也会影响原始列表。
* 在循环内部修改数据结构可能会导致意想不到的行为。建议使用局部变量来存储需要修改的数据。

Perl 中的 foreach 循环是遍历数组、哈希和列表的强大工具。它提供了一种一致且有效的方法来访问和处理每个元素。通过理解其语法和使用控制流，您可以充分利用 foreach 循环来编写高效且灵活的 Perl 代码。

2025-02-05

上一篇：InterPro Perl 快速入门

下一篇：替换 Perl 脚本