Perl JSON - 結果を記録する前に値が存在するかどうかを確認します

Question

キー= tls、dns、またはhttpの場合、次のjson出力からdoc_count値を引き出そうとしています。

JSON：https://pastebin.com/T5Cu3w79

これまでのところ、私は「キー」の値をプリントアウトしようとしましたが、私はそれが結果を返すことができませんでした。 $ hashは配列として格納されたJSON出力です。

my @buckets = @{ $hash->{'buckets'} }; 
foreach my $proto (@buckets) { 
    print $proto->{"key"} . "\n"; 
} 

EDIT：https://pastebin.com/T5Cu3w79のJSONファイルを参照してください。必要な情報は、818行目から859行目までの「key」と「doc_count」の値です。

Answer 1

：

my $buckets = $hash->{'spi'}->{'prot-term'}->{'buckets'}; 
for my $proto (@$buckets) { 
    # access proto->{'key'}, $proto->{'doc_count'} 
} 

の場合

for my $l1 (keys %$hash) { 
    for my $l2 (keys %{$hash->{$l1}}) { 
     my $buckets = $hash->{$l1}->{$l2}->{'buckets'}; 
     for my $proto (@$buckets) { 
      # $proto->{'key'}, $proto->{'doc_count'} 
     } 
    } 
} 

Answer 2

これはあなたの必要としているようです。

use strict; 
use warnings; 

use List::Util qw(sum); 

# Existing code to build the hash with buckets ... 

my @buckets = @{ $hash->{buckets} }; 
my %count_keys = (
     tls => 1, 
     dns => 1, 
     http => 1, 
    ); # lookup: which keys do I count 
my %doc_count; 

for my $proto (@buckets){ 
    my $key = $proto->{key}; 
    next unless $count_keys{ $key }; # not to be counted: skip this 
    $doc_count{ $key }+= $proto->{doc_count}; # counting per type 
} 

print "$_: $doc_count{$_}\n" for sort keys(%doc_count); # output count per type 
print "overall: " . sum(values(%doc_count)); # count of all doc counts 

私は他の質問/問題があるかどうか、しかし、確かではない午前：あなたはすべてでJSONをデコードしていますか？それ以上のコードがあればはるかに役立つでしょう。あなたペーストビンデータ構造（実際にデコードされたJSON構造になりそうだもの）を考えると、あなたはライン818から始まる指定した「バケット」の配列は次のようにそのハッシュキーを使用してアクセスすることができます