2 つの引数を取る1 つの関数があります。1 つsub _where(\@ \&)
目は配列で、2 つ目は別の関数にする必要があります。この他の関数はブール値を返します。関数の for ループ内で呼び出したいと思いsub _where(\@ \&)
ます。
カスタム ローカル名に渡す関数を抽出するのに問題があります。関数にさまざまなブール関数を渡すことができるはずなので、ローカル名が必要だと思いwhere
ます。
どこ:
sub _where(\@ \&)
{
my @stud = @{$_[0]};
my $student;
my $function = shift;
my $bool = 0;
my $i;
for $i(0..$#stud)
{
my $student = $stud[$i];
function $student;
}
}
渡す必要がある Function1:
sub name_starts_with($)
{
my $letter = 'B';
my $student = shift;
my $first;
$first = substr($student -> name, 0, 1);
if($first eq $letter)
{
return 1;
}
}
Function2 に渡す必要がありますwhere
:
sub points_greater_than($)
{
my $sum_pts = 5;
my $student = shift;
my $pts;
$pts = $student -> points;
if($pts > $sum_pts)
{
return 1;
}
}
皆さんがここで私を助けてくれることを願っています。乾杯