- 论坛徽章:
- 0
|
- #!/usr/bin/perl
- use warnings;
- use strict;
- while (
- my $line1 = <DATA> ) {
- my $line2 = <DATA> || '';
- my $line3 = <DATA> || '';
- my $count = 0;
- my $sum = 0;
- for my $line ( $line1, $line2, $line3 ) {
- my @value = split /\s+/, $line;
- $count += @value;
- $sum += $_ for @value;
- }
- printf "%.3f\n", $sum / $count;
- }
- __DATA__
- 21.000 20.000 36.600 37.700 0.660 0.890 0.060
- 20.000 21.000 37.400 38.300 0.680 0.900 0.090
- 20.000 21.000 38.400 38.400 0.690 0.930 0.090
- 19.000 21.000 39.900 45.300 0.540 0.740 0.040
- 19.000 22.000 41.700 45.200 0.530 0.740 0.030
- 19.000 23.000 39.500 45.100 0.510 0.730 0.040
- 19.000 23.000 39.500 45.100 0.510 0.730 0.040
复制代码 |
|