regex - Perl：用于读取日志语句的正则表达式

Question

我有以下方式的日志：

2013-07-10 17:27:08 +0900 app.log.error.traffic: {"app.log_count":10,"app.log_bytes":9960,"app.log_count_rate":0.5,"app.log_bytes_rate":166.0}

“app.log.error.traffic”部分不会改变，但日期和其他数字一直在改变。也就是说，“2013-07-10”每天都在变化，“08 +0900”也会变化，“app.log.error.traffic:”不会，“app.log_count”也不会变化.

我想制作一个 perl 脚本，如果“app.log_count”旁边的数字超出阈值级别，则会发出警告。

我做了以下：

 #!/usr/bin/env perl         
 use strict;
 use warnings; 
 use utf8;

 my $file_location = "/var/log/app.log" ; 
 my $threshold = 3;        

 open my $infile, "<", $file_location or die("$!: $file_location");
    while (<$infile>) {
      if (/ REGEX /) {
          if ($_ >= $threshold) {
          # warning
          } else {
          # not warning;
          }
      }
  }    

close $infile;

但正如你所见，最重要的部分缺失了。我应该在 REGEX 中放什么？

Answer 1

你可以做类似的事情

use strict;
use warnings;

while(<DATA>){
    my ($value) = $_=~ /"app.log_count":(\d+)/;
    print"$value\n"; # will give you 10
}

__DATA__
013-07-10 17:27:08 +0900 app.log.error.traffic: {"app.log_count":10,"app.log_bytes":9960,"app.log_count_rate":0.5,"app.log_bytes_rate":166.0}