Question

示例日志，

2016-03-29 10:57:28 UTC 642 [31871] INFO节点信息： {＆＃34; datacenter＆＃34;：＆＃34; TEST-DC＆＃34;，＆＃34; infraType＆＃34;：＆＃34; saas＆＃34;，＆＃34; service＆＃34;：＆＃ 34融合＆＃34 ;, ＆＃34; extraInfo＆＃34;：{＆＃34; systemType＆＃34;：＆＃34; secondary-ha1＆＃34;，＆＃34; tenantType＆＃34;：＆＃34; sales＆＃34;，＆＃34; tenantName＆＃34;：＆＃34; sale1＆＃34;}

我想阅读＆＃34; tenantName＆＃34;：＆＃34; sale1＆＃34;我需要的最后一个字符串是＆＃34; sale1＆＃34;

尝试使用awk并在Perl脚本中切入但没有解决任何建议和/或提示会很明显

我从@Sobrique

得到了答案

使用模块JSON＆amp;一览:: MoreUtils

find( \&Count, $logDir);

my @uniqtotal = uniq @totCount;
$totalcount = @uniqtotal;

sub Count {
    if( $File::Find::name =~m!$logDir/(.*?)/$pattern! and -f $File::Find::name ) {
    my $jsonLine = `grep 'tenantName' $File::Find::name`;
    if ($jsonLine ne "") {
      $jsonLine =~ m/(\{.*\})/ ; 
      my $json_text = $1;
      my $json = decode_json ( $json_text ); 
      push @totCount, $json -> {extraInfo} -> {tenantName};
    }
   }
}

Answer 1

无论如何，不要在perl脚本中进行awk和sed。

这是JSON，因此最好解析为JSON。

#!/usr/bin/env perl

use strict;
use warnings;

use JSON;

while ( <> ) {
   my ( $json_text ) = m/(\{.*\})/; 
   my $json = decode_json ( $json_text ); 
   print $json -> {extraInfo} -> {tenantName};
}

或者简化为一个衬垫，因为这是需要做的事情：

perl -MJSON -ne 'print decode_json (/(\{.*\})/ && $1)->{extraInfo}{tenantName}'

Answer 2

SELECT CASE WHEN (select max(rank) from my_table where usage='L') >= 100

或grep -oP 'tenantName": "\K[^"]+' inputfile sale1：

sed

Exaplanation： sed -r 's/.*"tenantName": "([^"]+).*/\1/g' inputfile sale1：grep标志只会打印字符串的匹配部分而不是整行。 -o标记将为-P启用perl正则表达式。 grep：意味着忘记左边的一切。

如何从perl脚本中的日志文件中读取特定字符串

2 个答案: