怎么求指定列的和

很宅的男

我有一个文件夹，文件夹下面有很多文本，名称为JF010001_001,JF010001_02之类，然后每个文本里的内容格式一样，拿JF010001_001来说吧：
      x=1 y=2 z=8
      x=3 y=1 z=3
      x=2 y=5 z=4
      ...
然后还有一个单独的文本b，格式如下：
      JF010001_001 0 2
      JF010001_001 2 5
      JF010001_001 5 7
      JF010001_002 0 1
      JF010001_001 1 3
      ...
    其中第1列是对应文件夹a的文本编号，第二列是起始行号，每一个文本都是从0开始，比如JF010001_002的第一行也是从0开始，第3列是持续行数，拿b的第1行来说，就是要求JF010001_001的从第1行开始到第3行的x的和，y和z也一样
    请问这个脚本该怎么写啊，还望各位大神能不吝赐教，谢谢啦！

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my %hData;
   
6. open (my $fhR, '<', './b');
   
7. while (local $_ = <$fhR>){
   
8.     my ($fn, $id, $cnt) = split;
   
9.     push (@{$hData{$fn}}, [$id, $cnt]);
   
10. }
    
11. close ($fhR);
    
12. 
    
13. foreach my $fn (glob('JF*')){
    
14.     my @aItems = @{$hData{$fn}};
    
15.     next if (!@aItems);
    
16.     open ($fhR, '<', $fn);
    
17.     my @aT;
    
18.     push (@aT, $_) for map {[/\d+/g]} <$fhR>;
    
19.     close ($fhR);
    
20.     foreach my $ra (sort {$a->[0] <=> $b->[0]} @aItems){
    
21.         my ($n, $x, $y, $z);
    
22.         $n++ if ($ra->[0]);
    
23.         foreach ($ra->[0] .. $#aT){
    
24.             last if ($n++ > $ra->[-1]);
    
25.             $x += $aT[$_][0];
    
26.             $y += $aT[$_][1];
    
27.             $z += $aT[$_][-1];
    
28.         }
    
29.         print "$fn,@{$ra} \$x=$x, \$y = $y, \$z = $z\n";
    
30.     }
    
31. }

复制代码

很宅的男

回复 2# sunzhiguolu

第6行的open里面的'<','./b'是什么意思啊？

很宅的男

回复 2# sunzhiguolu

sunzhiguolu

回复 4# 很宅的男

第6行的open里面的'<','./b'是什么意思啊？

< 以读的方式将文本 ./b 与句柄相关联