看到的记录一下

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