在本章中，我们将深入探讨 Perl 中的 while 循环。while 循环是一种基本的控制流结构，它允许你重复执行一段代码直到某个条件不再满足为止。了解如何使用 while 循环对于构建各种程序至关重要。
while 循环的基本概念
while 循环的基本语法如下：
while (条件) {
# 执行的代码块
}当 条件 为真时，循环内的代码块将被执行。每次循环结束时，条件将被重新评估，如果条件仍然为真，循环将继续。这种结构非常适合处理需要重复执行的任务，直到满足特定条件为止。
示例：打印数字
让我们通过一个简单的例子来理解 while 循环的工作原理。下面的代码片段展示了如何使用 while 循环从 1 打印到 5：
my $count = 1;
while ($count <= 5) {
print "$count\n";
$count++;
}在这个例子中，$count 变量被初始化为 1。循环的条件是 $count <= 5，只要这个条件为真，循环体内的代码就会被执行。每次循环执行后，$count 的值增加 1，直到 $count 超过 5，此时循环结束。
while 循环的变体：until 循环
虽然 while 循环是最常见的循环形式之一，但 Perl 还提供了另一种类似的循环结构——until 循环。until 循环与 while 循环相反：它会重复执行代码块，直到条件变为真。
until 循环的基本语法
until (条件) {
# 执行的代码块
}示例：使用 until 循环
我们可以使用 until 循环重写上面的例子，实现相同的功能：
my $count = 1;
until ($count > 5) {
print "$count\n";
$count++;
}在这个例子中，我们使用了 until 循环来达到与之前相同的输出结果。注意，循环条件是 $count > 5，这意味着只要 $count 不超过 5，循环就会继续执行。
while 循环的应用场景
while 循环适用于多种场景，包括但不限于：
- 读取文件内容：逐行读取文件直到文件末尾。
- 用户输入验证：直到用户输入满足某些条件才停止请求输入。
- 游戏逻辑：在游戏中持续更新状态直到游戏结束。
示例：读取文件内容
下面是一个使用 while 循环读取文件内容的例子：
open(my $fh, '<', 'example.txt') or die "Could not open file: $!";
while (my $line = <$fh>) {
chomp $line;
print "$line\n";
}
close($fh);在这个例子中，我们打开一个名为 example.txt 的文件，并使用 while 循环逐行读取其内容，直到文件末尾。
结合其他结构使用 while 循环
while 循环可以与其他控制结构（如 if 和 else）结合使用，以创建更复杂的逻辑。
示例：结合 if 使用
下面的例子展示了如何结合 if 语句和 while 循环来实现更复杂的功能：
// www.javascriptcn.com code example
my $tries = 0;
my $password = 'secret';
while ($tries < 3) {
print "Enter password: ";
my $input = <STDIN>;
chomp $input;
if ($input eq $password) {
print "Access granted.\n";
last; # 立即退出循环
} else {
print "Incorrect password. Try again.\n";
$tries++;
}
}
if ($tries == 3) {
print "Too many attempts. Access denied.\n";
}在这个例子中，我们尝试三次输入密码。如果输入正确，则显示“Access granted”并立即退出循环；如果输入错误，循环将继续，直到达到最大尝试次数。
通过这些示例和解释，你应该对 Perl 中的 while 循环有了深刻的理解。掌握了 while 循环，你就可以在各种编程任务中有效地使用它来控制程序流程。