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