求平均值的问题

Okelani

1. #!/usr/bin/perl
   
2. use warnings;
   
3. use strict;
   
4. 
   
5. while (
   
6.     my $line1 = <DATA> ) {
   
7.     my $line2 = <DATA> || '';
   
8.     my $line3 = <DATA> || '';
   
9.     my $count = 0;
   
10.     my $sum   = 0;
    
11.     for my $line ( $line1, $line2, $line3 ) {
    
12.         my @value = split /\s+/, $line;
    
13.         $count += @value;
    
14.         $sum += $_ for @value;
    
15.     }
    
16.     printf "%.3f\n", $sum / $count;
    
17. }
    
18. 
    
19. __DATA__
    
20. 21.000  20.000  36.600  37.700  0.660   0.890   0.060
    
21. 20.000  21.000  37.400  38.300  0.680   0.900   0.090
    
22. 20.000  21.000  38.400  38.400  0.690   0.930   0.090
    
23. 19.000  21.000  39.900  45.300  0.540   0.740   0.040
    
24. 19.000  22.000  41.700  45.200  0.530   0.740   0.030
    
25. 19.000  23.000  39.500  45.100  0.510   0.730   0.040
    
26. 19.000  23.000  39.500  45.100  0.510   0.730   0.040
    

复制代码