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);
页:
[1]