この演習では、2 つのサブルーチンを作成します.. &average (数値のリストの平均を計算します) と &above_average (リスト内の平均より大きい数値を出力します)。
above_average サブに対して彼らが与える答えは次のとおりです。
sub above_average
{ my $average = average(@_);
my @list;
foreach my $element (@_) {
if ($element > $average ){
push @list, $element;
}
}
@list;
}
そして付随するテキストは、「Perl のお気に入りのデフォルト $_ の代わりに制御変数 $element が使用されるのはなぜですか?」と尋ねています。
何故ですか?私は実際に $_ を使用して回答を書きましたが、うまくいくように見えました..だから、著者が $_ の代わりに $element を使用したことを強調する必要があると感じた理由に興味があります。
ありがとう!