18、Perl 循环与控制详解

Perl 循环与控制详解

1. 程序需求

我们先来看一个需求，编写一个程序，它能够接收命令行指定的一系列数字，然后完成以下两个任务：
1. 将这些数字按升序排序。
2. 遍历排序后的数字，打印每个数字以及当前的累加和。

2. Perl 中的循环类型

2.1 foreach 循环

当不需要关注列表中元素的具体位置，只需要遍历列表时，可以使用foreach循环。它允许在不使用循环计数器变量的情况下遍历数组内容。基本语法如下：

foreach my $thing (@array) { # 使用 $thing 的代码 }

通常，临时变量的命名会采用数组名的单数形式，例如：

foreach my $protein (@proteins) { ... } foreach my $result (@results) { ... } foreach my $species (@species) { ... }

下面是一个示例脚本，用于统计列表中长度超过指定长度的单词数量：

#!/usr/bin/perl # long_words.pl use strict; use warnings; my @words = qw(cat catastrophe dog doggedness fox foxtrott