Perl 中的 while 语句用于在给定条件为 true 时，重复执行语句或语句组。而且循环主体执行之前会先测试条件。

while 语句语法格式

Perl 中的 while 语句语法格式如下所示：

while(condition)
{
    # 如果 condition 为真，则执行 statement(s) 
    statement(s);
}

• statement(s) 可以是一个单独的语句，也可以是几个语句组成的代码块

• condition 可以是任意的表达式，当条件为 true 时执行循环，当条件为 false 时，程序流将退出循环

while 语句流程图

Perl 中的 while 语句流程图如下

while 循环的关键点是循环可能一次都不会执行。 因为当条件为 false 时，会跳过循环主体，直接执行紧接着 while 循环的下一条语句

范例 : Perl 中 while 语句的使用

#!/usr/bin/perl

=pod

  file: mail.pl
  author: 简单教程(www.twle.cn)

  Copyright © 2015-2065 www.twle.cn. All rights reserved.

=cut


$step = 13;

# 执行 while 循环

while( $step < 17 )
{
   printf "step 的值为 : $step\n";
   $step += 1;
}

范例中，变量 $step 小于 17 时执行循环体，在变量 $step 大于等于 17 时，退出循环

运行以上范例，输出结果为:

$ perl main.pl
step 的值为 : 13
step 的值为 : 14
step 的值为 : 15
step 的值为 : 16