Perl redo 函数

• 

  描述

  redo 此函数将重新启动当前循环，而不会强制评估控制语句。块中不再执行其他语句。如果存在继续块，将不会执行。如果指定了LABEL，则在LABEL标识的循环开始时重新开始执行。
• 

  句法

  以下是此函数的简单语法-

  
  redo LABEL
  
  redo
  

• 

  返回值

  此函数不返回任何值。
• 

  示例

  以下是显示其基本用法的示例代码-

   
  $c = 1;
  $d = 4;
  LABEL: {
     $c++;
     $e = 5;
     redo LABEL if ($c < 3);
     $f = 6;
     last LABEL if ($e > 3);
     $g = 7;
  }
  $h = 8;
  print ("$c $d $e $f $g $h\n");
  

  尝试一下

  执行结果：

  
  3 4 5 6 8