perl求平均数

#!/usr/bin/perl

##############################################################################

 

sub sum{

 

my $sum;

foreach(@_){

 

$sum+=$_;#取得数组里的每一个数

}

 

$sum;

 

}

 

sub getAvg{

if(@_==0){return}#长度为零

my $avg;

my $len = @_;#如果是变量赋值，那么这里只是把数组的长度赋给了len

print @_;#打印出数组里面的内容

print "\n";

print "长度：";print $len;

print "\n";

print "平均数相加的和：\n";

print sum(@_);

print "\n";

$avg = sum(@_)/$len;

print "平均数：";

print $avg;print "\n";#print语句出现在方法的最后一行时，方法返回1

return $avg;

}

 

sub aboveAvg{

 

my $avgNum = getAvg(@_);

my $list;

 

foreach(@_){

 

if($avgNum<$_){

 

push @list,$_;

}

}

print "大于平均数的值\n";

print @list;

@list;

}

 

aboveAvg(1..8);