如何在 Perl 中跳出循环？

在大多数编程语言中，我们可以使用“break”关键字来跳出任何类型的循环。在 Perl 中，我们也有“break”关键字可用，但最常用于跳出循环的关键字是“last”关键字。

Perl 中的“last”语句

“last”语句用于 Perl 循环中立即退出循环；它相当于 C/C++ 和 Java 中的“break”语句。

  • 在实践中，您经常使用“last”语句在满足某个条件时退出循环，例如，您找到一个数组元素，其键与您的搜索键匹配，因此无需检查其他元素。

  • “last”语句通常与条件语句（如“if”或“unless”）一起使用。

在本教程中，我们将通过两个不同的示例演示如何在 Perl 中使用“last”关键字跳出循环。

示例 1

考虑下面所示的代码：

use strict;
print "Enter a string: ";
while (<STDIN>) {
   last if $_ eq "tutorialspoint\n";
   print "You entered: $_";
}
print "Done for now!\n";

在此示例中，我们使用了标准输入，然后将该输入作为参数传递给“while”循环。使用命令“perl sample.pl”运行文件，然后在终端中输入字符串“tutorialspoint”；它将在屏幕上产生以下输出：

Enter a string: tutorialspoint
Done for now!

输出

Enter a string: hello
You entered: hello

示例 2

现在，让我们考虑另一个“while”循环中“last”关键字的示例。

$var = 1;
while ($var < 10) {

   # terminating the loop
   if ($var == 7) {
      $var = $var + 1;
      last;
   }
   print "The value of var is: $var\n";
   $var = $var + 1;
}

在此代码中，我们正在启动一个“while”循环，并告诉编译器，如果变量的值等于“7”，则只需终止循环。

如果我们以“sample.pl”为文件名保存文件，然后运行命令“perl sample.pl”，那么我们将在终端中得到以下输出。

输出

The value of var is: 1
The value of var is: 2
The value of var is: 3
The value of var is: 4
The value of var is: 5
The value of var is: 6

观察到，一旦变量的值变为“7”，控制就会跳出循环。

更新于: 2022-12-26

9K+ 浏览量

启动你的 职业生涯

通过完成课程获得认证

开始学习
广告