Perl 脚本在日志文件中查找时间戳

Question

我必须修改现有的 PERL 脚本。由于我在 PERL 脚本方面没有经验，所以我用谷歌搜索并进行了更改，但那是行不通的。所以有一部分检查文件中是否存在特定时间戳。代码是

    while (<IN>) {
      if (/timestamp="(\w\w\w) (\d\d) \d\d:\d\d:\d\d (\d\d\d\d)"/ {
        $NowDate=.$Month{}.;
        if ( $NowDate > $StartDate ) {
          print OUT $_;
          while (1) {
            $regel=<IN>;
            if (! defined $regel) {last}
              print OUT $regel;
            }
          }
       }
  }

日志文件中的时间戳=Feb 15 09:28:13 2017
但升级后时间戳 = 2017-02-15T10:26:14.858

我已经像这样更新了条件，但它不起作用。

if (/timestamp="(\d\d\d\d)-(\d\d)-(\d\d)T(\d\d):(\d\d):(\d\d)"/

谁能给我一些建议。

Answer 1

if ( /timestamp="(\d\d\d\d)-(\d\d)-(\d\d)T\d\d:\d\d:\d\d\.\d\d\d"/ ) {
    $NowDate = ..;
    ...
}

Perl 脚本在日志文件中查找时间戳

Perl script Lookup timestamp in a log file

perl

perl-module