求助计算平均值的Perl程序

pitonas

{:2_172:} 小伙伴们, 这个高端大气上档次。

1. #!/usr/bin/perl -w
   
2. my ( $file, $save ) = qw[ file.txt save.txt ];
   
3. my $count = 1000;
   
4. 
   
5. open my $in, $file or die "$file $!";
   
6. open my $out, '>', $save or die "$save $!";
   
7. 
   
8. my ( $i, $sum );
   
9. my @data = map split, <$in>;
   
10. 
    
11. $sum += $_ for @data[ 0 .. $count - 1 ];
    
12. 
    
13. my @answer = (
    
14.     $sum / $count,
    
15.     map {
    
16.         $sum += $_ - $data[ $i++ ];
    
17.         $sum / $count;
    
18.     } @data[ $count .. $#data ]
    
19. );
    
20. 
    
21. print $out "@answer";
    

复制代码

回复 18# liujie126