如何创建一个无限循环在Perl

有几种方法可以如何创建一个无限循环在Perl。

使用 while

第一种方法,通过它可以创建一个无限的循环使用 循环 while. 这一循环一直执行,直到的表情是真实的。 作为 表情编写一个简单的系数,这是真实的,在这种情况下 循环将运行无限。 这里是一个例子码:

#!/usr/bin/perl

while (1) {
    # some code
}

如果你需要完成这一周期,则在环路需要执行 last. 这里有一个例子:

▶ Run
#!/usr/bin/perl

my $i = 0;
while (1) {
    print $i;
    last if $i > 2;
    $i++;
}

注意到出口的循环的关键词是用 last,而不 return和 不 break.

使用 for

这里是怎么写一个无限循环在Perl编程语言的使用 for:

#!/usr/bin/perl

for (;;) {
    # some code
}

for 3在括号内的代码段:

  • 初始价值
  • 检查
  • 改变

通常的循环体执行的,如果试验返回正确的。 但是,如果检查丢失, 在这种特定情况下,事实证明无限循环。

要退出这个无限的循环需要使用 last:

▶ Run
#!/usr/bin/perl

for (my $i = 0;;$i++) {
    print "$i";
    last if $i > 2;
}

使用 until

这里是另一种方式可以如何创建一个无限循环在Perl:

#!/usr/bin/perl

do {
    # some code
} until(0)

代码块执行,直到病情在 until 是一个谎言。

为了摆脱这种无尽的循环,也需要利用关键词 last, 但是要让它正常工作,你需要地方所有代码无限循环在括号:

▶ Run
#!/usr/bin/perl

my $i = 0;

{
    do {
        print $i;
        last if $i > 2;
        $i++;
    } until(0)
}

这里是一个例子,我们正在试图使用 last,但不是封闭的括号码:

▶ Run
#!/usr/bin/perl

my $i = 0;

do {
    print $i;
    last if $i > 2;
    $i++;
} until(0)

如果你跑这个代码,它将错误:

Can't "last" outside a loop block at script.pl line 7.
0123

相关的主题

其他文章