如何对文本中得相应行的某个字段进行比较运算？？

112003

如下文本：

14:26:51        BEGIN        abc
14:27:38        END        abc
14:30:25        BEGIN        hig
14:30:26        END        hig
14:34:48        BEGIN        figer
14:35:31        END        figer
14:37:46        BEGIN        hot
14:38:36        END        hot

最后一列为标示，标示相同的两行的第一列的相应2个字段进行相减运算（END对应的time减BEGIN对应的time）。如果以标示列为keys，相应的第一列为values,用hash 能否实现？刚接触perl不久，有哪位大大能解决下？
有好的思路或方法能否高知。非常感谢！！！

输出：
14:27:38 - 14:26:51结果      abc
14:30:26 - 14:30:25            hig
。。。。。。。

MMMIX

想想这个问题要让你手工一步一步做你会如何做？把详细步骤写下来，然后再用 Perl 实现。

converse

1. 
   
2. 
   
3. my $start="BEGIN";
   
4. my $end="END";
   
5. my $text;
   
6. my $flag=0;
   
7. 
   
8. while (<DATA>)
   
9. {
   
10.     if ( (/$start/ .. /$end/) )
    
11.     {
    
12.         my @temp = split;
    
13.         if ($flag)
    
14.         {
    
15.             $text .= "-" . $temp[0] . " " . $temp[2];
    
16.             print $text, "\n";
    
17.             $flag = 0;
    
18.             $text = undef;
    
19.         }
    
20.         else
    
21.         {
    
22.             $text = $temp[0];
    
23.             $flag = 1;
    
24.         }
    
25.     }
    
26. }
    
27. __END__
    
28. 14:26:51        BEGIN        abc
    
29. 14:27:38        END        abc
    
30. 14:30:25        BEGIN        hig
    
31. 14:30:26        END        hig
    
32. 14:34:48        BEGIN        figer
    
33. 14:35:31        END        figer
    
34. 14:37:46        BEGIN        hot
    
35. 14:38:36        END        hot
    
36. 
    

复制代码