perl - Perl：搜索在特定时间差内发生的模式

Question

首先是我的问题：我有一个文档，我想在其中搜索两种模式。在每一行中，都有一个时间戳。所以也有时间与模式一致。

现在我只想获得这两种模式，它们发生在某个时差或时差高于我输入的时间（我想确定）的地方。喜欢：

19:03 Pattern1 
19:04 Pattern2
20:04 Pattern1
20:10 Pattern2

time difference: 4 sec

我计算了绝对时间和差异。模式匹配没有问题。但我的问题是给出时间差大于例如 4 秒的所有线条/图案的线条。

Answer 1

你忘了问一个问题！也许你想要匹配的线条？

my ($pat1_time, $pat1_line); 
while (<>) {
   my $time = ...;
   if (/pat1/) {
      $pat1_line = $_;
      $pat1_time = $time;
   }
   if (/pat2/) {
      if ($time - $pat1_time > 4) {
         print($pat1_line);
         print($_);
      }
   }
}