看到的记录一下

 
  
  1. #!/usr/bin/perl -w 
  2. use strict; 
  3. sub total{ 
  4.  my $a; 
  5. foreach(@_){ 
  6.  $a+=$_; 
  7. } 
  8.  $a; 
  9. } 
  10.  
  11. sub average{ 
  12.  &total(@_)/@_; 
  13. } 
  14.  
  15. sub above_average{ 
  16.  my ($b,@e); 
  17.  $b=&average(@_); 
  18.  foreach(@_){ 
  19.  push @e,$_ if($_>$b); 
  20. } 
  21.  @e 
  22. } 
  23.  
  24. my @c=(1..10); 
  25. print &above_average(@c); 
  26. 执行输出如下 
  27. [root@nagios perl]# perl  ex43 
  28. 678910