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

112003

UID: 12066
帖子: 136
积分: 312
在线时间: 1 天 1 小时

1^# 112003 发表于 2008-06-29 18:18

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

如下文本：

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

UID: 31964
帖子: 137
积分: 315
在线时间: 1 天 1 小时

2^# MMMIX 发表于 2008-06-29 19:26

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

converse

UID: 43541
帖子: 20
积分: 46
在线时间: 10 分钟

3^# converse 发表于 2008-06-30 10:59

[Copy to clipboard] [ - ]

CODE:

my $start="BEGIN";
my $end="END";
my $text;
my $flag=0;

while (<DATA>)
{
if ( (/$start/ .. /$end/) )
{
      my @temp = split;
      if ($flag)
      {
         $text .= "-" . $temp[0] . " " . $temp[2];
         print $text, "\n";
         $flag = 0;
         $text = undef;
      }
      else
      {
         $text = $temp[0];
         $flag = 1;
      }
}
}
__END__
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