练习可以构建两个子程序..& average(计算数字列表的平均值)和& above_average(它将打印出列表中大于平均值的数字)。
他们为above_average sub给出的答案是:
sub above_average
{ my $average = average(@_);
my @list;
foreach my $element (@_) {
if ($element > $average ){
push @list, $element;
}
}
@list;
}
随附的文字询问“为什么使用控制变量$元素而不是Perl最喜欢的默认$ _?”
为什么?我实际上用$ _写了我的答案,它似乎工作..所以我很好奇为什么作者觉得有必要强调他使用$元而不是$ _。
谢谢!