Perl while 遍历输入行45

概述

在 Perl 编程中，while 循环是一种简便的方式，用于逐行遍历输入。它是一个非常强大的结构，可以用于各种基于文本处理的任务。

语法

while 循环的语法如下：```perl
while () {
# 行处理代码
}
```

工作原理

当使用 while 循环时，Perl 会将标准输入作为输入源。循环的条件检测标准输入中是否有更多行。如果还有更多行，循环的主体就会执行；如果没有更多行，循环就会终止。

循环主体中的代码对输入行执行所需的操作。这可以包括打印行、对其进行处理或将其存储在数组中。

示例

以下示例使用 while 循环打印标准输入中的所有行：```perl
while () {
print;
}
```

以下示例使用 while 循环将输入行存储在数组中：```perl
my @lines = ();
while () {
push @lines, $_;
}
```

高级用法

while 循环还可以与其他 Perl 特性一起使用，例如正则表达式和文件句柄。这允许进行更高级的文本处理任务。

例如，以下示例使用正则表达式过滤标准输入中的数字行：```perl
while () {
if (/^\d+$/) {
print;
}
}
```

以下示例从文件中读取行并对其进行处理：```perl
open my $fh, '

2025-02-12

上一篇：Perl 中处理 JSON 数据的最佳实践

下一篇：菜鸟 Perl