如何利用程序循环控制Perl脚本流程

列表D

#!/usr/bin/perl

# define variables

$fact = 1;

$num = 5;

# calculate and print the factorial

until($num < 1){

$fact = $fact * $num;

$num--;

}

print $fact;

For循环

它是Perl中最常用的循环之一，for()循环用来重复执行一个代码块，执行的次数预先指定。这个循环通过一个计数器变量运行，变量被初始化为一个特定的值。接下来，对一个条件表达式进行测试，如果结果为真，就执行代码块，变量递增（或递减）。不断执行代码，直到表达式结果为假。

列表E是一个简单的例子：

列表E

#!/usr/bin/perl

# define number array

@nums = (1..18);

# run loop while number is less than 12

for ($x=0; $x<11; $x++) {

print $nums[$x];

}

在这个例子中，循环计数器的初始值为0。接下来，对条件表达式进行测试，如果结果为真，就打印相应的数列元素。计数器递增，为下一个循环做准备。这一过程一直持续到第12个数列元素，这时条件表达式的结果为假，循环被终止。

内容导航

• 第1页：如何利用程序循环控制Perl脚本流程
• 第2页：如何利用程序循环控制Perl脚本流程(2)
• 第3页：如何利用程序循环控制Perl脚本流程(2)