Perl redo用法及代码示例

Perl 中的重做运算符从给定标签重新启动，而不评估条件语句。一旦调用重做，则该块中将不再执行任何语句。即使是 continue 块(如果存在)，在重做调用之后也不会执行。如果使用重做运算符给出标签，则执行将从标签指定的循环开始。

用法： redo Label

返回：
没有值

示例 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);

输出：

示例 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");

输出：

101 21

相关用法

注：本文由纯净天空筛选整理自Code_Mech大神的英文原创作品 Perl | redo operator。非经特殊声明，原始代码版权归原作者所有，本译文未经允许或授权，请勿转载或复制。