循环 for Perl

在Perl编程语言有几种方式来创建一个循环。 其中一个方法是利用关键词 for.

这里有一个例子:

▶ Run
#!/usr/bin/perl

for (my $i=0; $i < 3; $i++) {
    print "$i\n";
}

该计划显示了三个线数字:

0
1
2

怎么循环 for

循环 for 在Perl编程语言是非常相似的周期 for的语言 C节目。

for 括号中3个是一段代码:

  • 初始价值
  • 检查
  • 改变

首先,运行的第一代码段。 然后检查 对于一个真正的或虚假的第二代码段。 如果验证返回的真实 它执行的循环的身体,如果试验假返回后,再循环终止。 如果你跑了的循环体,在执行代码在循环体执行代码 在第三片的,然后检查,再次,一切都在根据已经描述的算法。

这有可能的情况下身体的循环将不会被执行,甚至一次。 这种情况发生 如果第一次检查的回报是假的。

缺乏价值

一个有趣的特点是循环,任何代码段中描述的循环 你不可能。

这里的一个例子是一周而不是设置初始的价值:

▶ Run
#!/usr/bin/perl

my $i = 0;

for (; $i < 3; $i++) {
    print "$i\n";
}

在这种情况下,如果描述的周期 for 试验不适用,它创建了一个无限的循环。 这里的一个例子是循环 for 其不指定的验证,但仍然这个周期结束 迁移的循环体和使用 last.

▶ Run
#!/usr/bin/perl

for (my $i=0;; $i++) {
    last unless $i < 3;
    print "$i\n";
}

在描述该周期的第三片段还可以丢失:

▶ Run
#!/usr/bin/perl

for (my $i=0; $i < 3;) {
    print "$i\n";
    $i++;
}

如果在一个循环中删除所有的片段,这将创建一个无限循环:

#!/usr/bin/perl

for (;;) {
    print "infinity\n";
}

能见度的一个变量

在这种情况下,如果的变量定义中描述的循环循环外,这一变量将不可用。 在情况代码是 use strict;,那么这一呼吁将会失败。

▶ Run
#!/usr/bin/perl

use strict;
use warnings;

for (my $i=0; $i < 3; $i++) {
    print "$i\n";
}

print $i;
Global symbol "$i" requires explicit package name (did you forget to declare "my $i"?) at script.pl line 10.
Execution of script.pl aborted due to compilation errors.

如果你需要使用一个变量外的柜台循环的身体,你必须找到它了 说明循环:

▶ Run
#!/usr/bin/perl

use strict;
use warnings;

my $i = 0;

for (; $i < 3; $i++) {
    print "$i\n";
}

print $i;

nextlast

Perl有特殊的关键字,你可以用它来影响执行的循环。

关键字 next 停止执行目前的迭代:

▶ Run
#!/usr/bin/perl

for (my $i=0; $i < 3; $i++) {
    next if $i == 0;
    print "$i\n";
}

和帮助 last 在任何时间来完成周期:

▶ Run
#!/usr/bin/perl

for (my $i=0; $i < 3; $i++) {
    last if $i == 1;
    print "$i\n";
}

相关的主题

其他文章