Perl 子函数练习

写一个子程序，名为&above_average，将一列数字作为其参数，返回所有大于平均值的数字（提示：
另外写一个子程序来计算平均值，总和除以数字的个数）。利用下面的程序进行测试：
my @fred = &above_average(1..10);
print "/@fred is @fred/n";
print "(Should be 6 7 8 9 10)/n";
my @barney = &above_average(100, 1..10);
print "/@barney is @barney/n";
print "(Should be just 100)/n";

 

函数如下：

该函数在win32下运行

linux的修改一下开头即可

#!c:perl
use warnings;
use strict;

my @fred = &above_average(1..10);
print "/@fred is @fred/n";
print "(Should be 6 7 8 9 10)/n";
my @barney = &above_average(100, 1..10);
print "/@barney is @barney/n";
print "(Should be just 100)/n";
my @bady = &above_average(1..100);
print "/@bady is @bady/n";
#print "(Should be just 100)/n";

sub above_average {
 my ($sum, $ave) = (0, 0);#初始化
 my $number = @_;#得到数组长度
 my @ret = ();#初始化返回值
 foreach (@_) {
  $sum += $_;
 }
 $ave = $sum/$number;
 foreach (@_) {
  if ($_ > $ave) {
   push (@ret, $_);
  }
 }
 @ret;
}