#!/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=>_average(2,3,6,1,4,9);
foreach (@arry){
print $_."\n";
}
print "\n";
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=>_average(2,3,6,1,4,9);
foreach (@arry){
print $_."\n";
}
print "\n";
本文转自 tiger506 51CTO博客,原文链接:http://blog.51cto.com/tiger506/1336188,如需转载请自行联系原作者