Perl script Временная метка поиска в файле журнала

Question

Мне нужно внести изменения в существующий сценарий PERL. Поскольку у меня нет опыта в PERL Scripting, я googled и внес изменения, но это не работает. Итак, есть часть, которая проверяет, существует ли конкретная временная метка в файле. код

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; 
    ... 
}