看到的记录一下

 
 

#!/usr/bin/perl -w 
  
  
use strict; 
  
  
sub total{ 
  
  
 my $a; 
  
  
foreach(@_){ 
  
  
 $a+=$_; 
  
  
} 
  
  
 $a; 
  
  
} 
  
  
 
  
  
sub average{ 
  
  
 &total(@_)/@_; 
  
  
} 
  
  
 
  
  
sub above_average{ 
  
  
 my ($b,@e); 
  
  
 $b=&average(@_); 
  
  
 foreach(@_){ 
  
  
 push @e,$_ if($_>$b); 
  
  
} 
  
  
 @e 
  
  
} 
  
  
 
  
  
my @c=(1..10); 
  
  
print &above_average(@c); 
  
  
执行输出如下 
  
  
[root@nagios perl]# perl  ex43 
  
  
678910