Perl |重做运算符

原文:https://www.geeksforgeeks.org/perl-redo-operator/

Perl 中的 redo 运算符从给定的标签重新开始，不计算条件语句。一旦调用了 redo，那么就不会在该块中执行更多的语句。即使有 continue 块，在重做调用后也不会执行。如果使用重做操作符给定了一个标签，那么执行将从标签指定的循环开始。

语法:就绪标签

返回: 无值

例 1:

#!/usr/bin/perl -w

$a = 1;

# Assigning label to loop
GFG: {
   $a = $a + 5;
   redo GFG if ($a < 10);
}

# Printing the value
print ($a);

Output:

11

示例 2(重做循环):

#!/usr/bin/perl -w

$a = 1;

# Assigning label to loop
$count = 1;
GFG: while($count < 10) {
   $a = $a + 5;
   $count++;
   redo GFG if ($a < 100);
}

# Printing the value
print ("$a $count");

Output:

101 21

---

我们一直在努力

apachecn/AiLearning

---