Question

PERL 问题，数组内1 2 3 4 5 6 7 8 9 10，如何打印出数组内元素 大于平均值的数字。

my @sum=&above_average(1..10);
my $sun=@sum;
sub above_average{
my $s=0;
foreach(@_){
$s += $_;
}
$s=$s/10;
}
foreach$nu(@sum){
if($sun<$nu){
printf"@_";
}

}
求解答我那里弄错了。正确的发上来 谢谢啦

Answer 1

首先, 错在 $s=$s/10; 下一行多了个 } , 这样整个程序就崩溃了. 而然, 我实在也看不清你的逻辑是想怎样安排, 所以就不一一啦. 给你的建议是:
1. 用一些比较有意义的变数名称
2. 善用 tab 和 space, 如果你的程序写得较有层次感, 你自己都能看出错在那里了.

最後写一个给你参巧一下, 希望有帮助啦!
@result = &above_average ( 1..10 ) ;
print "These numbers are above average: @result";

sub above_average {
@numbers = @_ ;
$total += $_ foreach @numbers;
$avg = $total / ( $#numbers + 1 ) ;
print "Average is $avg$/";

foreach $num ( @numbers ) {
push @collected, $num if $num > $avg;
}
return @collected
}

Answer 2

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

错在这里，函数返回的不是一个数组啊，而是平均值；另外
printf"@_"; //这一句也有问题啊。 printf "$nu";直接用这个好了