Perl:子例程输出显示之前需要

Question

我对perl完全不熟悉,现在我真的陷入了这个(可能非常简单)的问题.问题本身就是简单的输出问题,我得到的结果应该是它们之前.这是我写的代码:

sub above_average
{
        my $average = &average(@_);

        foreach my $thing (@_)
        {
                if ($thing > $average)
                {
                        print $thing;
                }
        }

}

my @fred = &above_average(1..10);

print "\@fred is @fred\n";
print "(Should be 6 7 8 9 10)\n";

我运行代码时得到的结果是:

678910@fred is 
(Should be 6 7 8 9 10)

它应该看起来像@fred is 6 7 8 9 10而不是678910@fred is.我只是不知道如何解决它,我已经好几个小时已经没有运气了.

Answer 1

您的子程序print是那些大于平均值的数字,它不是return它们.但请注意,您只能从子例程返回一次,因此我们首先必须收集所有较大的值:

sub above_average {
    my $avg = average(@_);
    return grep { $_ > $avg } @_;
}

这是一种表达方式

sub above_average {
    my $avg = average(@_);
    my @out;
    for my $num (@_) {
        push @out, $num if $num > $avg;
    }
    return @out;
}

提示:不要调用带有前导的子程序&,这是一种不必要的古老习惯,并且有一些你可能不知道的效果.尽可能避免使用它.