珀尔循环

在Perl编程中，循环是控制流程的基础之一，可用于重复执行一段代码多次。Perl提供了多种循环结构以满足不同的需求。

for循环

for循环可以按指定的次数重复执行一段代码。语法如下：

for (my $i = 0; $i < 10; $i++) {
    # 循环体
}

这个程序会输出数字1到10：

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

输出：

1
2
3
4
5
6
7
8
9
10

foreach循环

可以使用foreach循环遍历数组、哈希等数据结构。语法如下：

foreach my $element (@array) {
    # 循环体
}

这个程序会输出数组中的元素：

my @array = ('apple', 'banana', 'orange');

foreach my $fruit (@array) {
    print "$fruit\n";
}

输出：

apple
banana
orange

while循环

while循环重复执行一段代码，直到指定的条件为假。语法如下：

while (条件) {
    # 循环体
}

这个程序会不停地读取用户的输入并输出：

print "请输入字符串：\n";

while (my $input = <STDIN>) {
    chomp $input;
    print "你输入了：$input\n";
    print "请继续输入字符串：\n";
}

当用户输入"exit"时，程序退出。

do...while循环

do...while循环先执行一次循环体，然后再根据指定的条件重复执行循环体。语法如下：

do {
    # 循环体
} while (条件);

代码示例：

my $count = 0;

do {
    print "$count\n";
    $count++;
} while ($count < 10);

输出：

0
1
2
3
4
5
6
7
8
9

until循环

until循环跟while循环正好相反，它重复执行一段代码，直到指定的条件为真。语法如下：

until (条件) {
    # 循环体
}

代码示例：

my $count = 0;

until ($count >= 10) {
    print "$count\n";
    $count++;
}

输出：

0
1
2
3
4
5
6
7
8
9

嵌套循环

可以使用嵌套循环来解决一些问题。语法如下：

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

输出：

1, 1
1, 2
1, 3
2, 1
2, 2
2, 3
3, 1
3, 2
3, 3

以上就是Perl的循环语句介绍。通过灵活使用循环，能够使Perl编程更加高效。