列出输入数组中大于平均值的数字

#!/usr/bin/perl
sub gt_average{
       my $aver=0;
       my $count=0;
       my $sum=0;
       my @input_arry=@_;
       foreach my $num(@input_arry){
               $sum+=$num;
               $count++;
       }
       $aver=$sum/$count;
       print "The sum is $sum, the average is $aver\n";
       my @rt_arry=undef;
       foreach my $nnum (@input_arry){
               if($nnum > $aver){
                       print "$nnum is gt $aver\n";
                       push @rt_arry,$nnum;
               }else{
                       print "$nnum is lt $aver\n";
               }
       }

       return @rt_arry;
}
@arry=&gt_average(2,3,6,1,4,9);
foreach (@arry){
       print $_."\n";
}
print "\n";

本文转自 tiger506 51CTO博客，原文链接：http://blog.51cto.com/tiger506/1336188，如需转载请自行联系原作者