Question

我必须对现有的PERL脚本进行修改。因为我没有PERL Scripting的经验，所以我用Google搜索并进行了更改，但这不起作用。因此，有一部分检查文件中是否存在特定的时间戳。代码是

    while (<IN>) {
      if (/timestamp="(\w\w\w) (\d\d) \d\d:\d\d:\d\d (\d\d\d\d)"/ {
        $NowDate=$3.$Month{$1}.$2;
        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 = $1.$2.$3;
    ...
}

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

1 个答案: