Perl 循环：掌握控制流的基本原理54

循环是编程中控制程序流的基本构建块之一。在 Perl 中，有几种类型的循环可用于遍历数据或重复执行代码块。

for 循环

for 循环用于对数组或列表中的元素进行迭代。其语法如下：```
for my $variable ( @array ) {
# 代码块
}
```

其中，@array 是要遍历的数组，$variable 是每次迭代中存储当前元素的变量。

foreach 循环

foreach 循环是 for 循环的另一种形式，用于遍历哈希表中的键值对。其语法如下：```
foreach my $key ( keys %hash ) {
my $value = $hash{$key};
# 代码块
}
```

其中，%hash 是要遍历的哈希表，$key 是当前键的变量，$value 是当前值。

while 循环

while 循环用于在满足给定条件时重复执行代码块。其语法如下：```
while ( $condition ) {
# 代码块
}
```

其中，$condition 是控制循环的条件。如果条件为真，则执行代码块；否则，循环终止。

until 循环

until 循环与 while 循环相反，用于在不满足给定条件时重复执行代码块。其语法如下：```
until ( $condition ) {
# 代码块
}
```

其中，$condition 是控制循环的条件。如果条件为假，则执行代码块；否则，循环终止。

do while 循环

do while 循环与 while 循环类似，但它至少执行一次代码块，然后检查条件。其语法如下：```
do {
# 代码块
} while ( $condition );
```

其中，$condition 是控制循环的条件。

last 和 next 语句

last 和 next 语句可用于控制循环的流程。last 语句立即终止循环，而 next 语句跳过当前迭代并继续下一个迭代。

循环控制变量

在 Perl 中，可以使用以下变量来控制循环：* $_：当前正在处理的元素或键值对
* @_：整个数组或列表
* $^：当前迭代次数
* $~：当前行号

示例

以下示例展示了 Perl 中不同类型循环的用法：```
# for 循环
my @array = (1, 2, 3, 4, 5);
for my $number (@array) {
print "$number ";
}
# foreach 循环
my %hash = ('name' => 'John', 'age' => 30);
foreach my $key (keys %hash) {
print "$key: $hash{$key}";
}
# while 循环
my $counter = 0;
while ($counter < 10) {
print "$counter ";
$counter++;
}
# until 循环
my $number = 10;
until ($number == 0) {
print "$number ";
$number--;
}
# do while 循环
do {
print "Enter a number: ";
my $input = ;
} while ($input !~ /^\d$/);
```