perl脚本请教

Eva326

各位大神，请教如何设立flag分段读取文件信息？有没有好懂一些的思路呢？
比如文件如下：

ID    BEGIN    END    INFO
A      1             5        QQ
a       1            2        QQ
a       2            3        QQ
B      22          33       W
C      33          44       W
A      7            15       EE
a      8             10      EE
a      9              11     EE
a      11            13     EE
a      13            15     EE
C      11           22     EE


遇到A开始统计它下边a的范围，并将各个a的范围加和（END-BEGIN的值），再遇到下一个A，统计。比如上边的得到：

A  2  QQ
A  8  EE

sunzhiguolu

回复 1# Eva326

遇到A开始统计它下边a的范围，并将各个a的范围加和（END-BEGIN的值），再遇到下一个A，统计。比如上边的得到：

能否将你的期望得到的结果的要求说的再简单一点.

另外, 你说范围加和是个什么意思 没有搞明白. 特别是遇到下一个 A 统计. 请详细说下.

sunzhiguolu

ID    BEGIN    END    INFO
A      1             5        QQ
a       1            2        QQ   => 1
a       2            3        QQ   => 1
B      22          33       W
C      33          44       W
A      7            15       EE
a      8             10      EE  => 2
a      9              11     EE  => 2
a      11            13     EE  => 2
a      13            15     EE  => 2
C      11           22     EE

我用不同的颜色进行标识的是不是你要表达的范围? 分别统计加和? 2 OR 8?

sunzhiguolu

如果是的话, 试下这个:

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my ($sum, $str) = 0;
   
6. while (<DATA>){
   
7.     my @aList = split;
   
8.     if (/\AA/){
   
9.         printf ("a %d $str\n",$sum) if ($sum);
   
10.         $sum = 0;
    
11.         $str = $aList[-1];
    
12.         next;
    
13.     }
    
14.     $sum += $aList[2] - $aList[1] if (/\Aa/);
    
15. }
    
16. 
    
17. printf ("a %d $str\n", $sum) if ($sum);
    
18. 
    
19. __DATA__
    
20. A      1             5        QQ
    
21. a       1            2        QQ
    
22. a       2            3        QQ
    
23. B      22          33       W
    
24. C      33          44       W
    
25. A      7            15       EE
    
26. a      8             10      EE
    
27. a      9              11     EE
    
28. a      11            13     EE
    
29. a      13            15     EE
    
30. C      11           22     EE
    

复制代码

Simon-文帅

3楼大哥好厉害，看完你的图才懂这题目是啥意思

1. open FILE, "<", "$file" or die "can't open: $!\n";
   
2. 
   
3. my $sum = 0;
   
4. my $info = "";
   
5. 
   
6. while(<FILE>) {
   
7.         next if (/^\s*$/);
   
8.         next if (/^\s*#/);
   
9.         next if (/^\s*ID/);
   
10.        
    
11.         chomp;
    
12.         if(/^\s*A \s+ \d+ \s+ \d+ \s+ (\w+) $/x) {
    
13.                 ($sum) ? (print "A $sum $info\n") : ();
    
14.                 $sum = 0;
    
15.                 $info = "$1";
    
16.         } elsif (/^\s*a \s+ (\d+) \s+ (\d+) \s+ \w+ $/x) {
    
17.         $sum += ($2-$1);
    
18.         }
    
19. }
    
20. ($sum) ? (print "A $sum $info\n") : ();
    
21. 
    
22. close FILE;

复制代码