父键中的 Perl JSON 数组

只需稍作调整即可

use warnings;
use strict;
use feature 'say';

use Data::Dumper;
use JSON::XS;

...

my @json_ary;

foreach my $server (@servers) {
    foreach (@details) {
        my @detail = split /,/; 
        if ($server eq $detail[0]) {
            #push @json_ary, {name => "$server", ip => "$detail[1]" ...
            push @json_ary, 
                { $server => { ip => $detail[1], os => $detail[2] } } 
        }
    }   
}

print Dumper \@json_ary;

# Encode `{ instance => \@json_ary }` for the desired output
my $json = JSON->new->convert_blessed;
my $result = $json->pretty->encode( { instance => \@json_ary } );

say $result;

几点注意事项

• 不需要用引号将变量括起来，因为无论如何都会对它们求值("$detail[0]"-->；$detail[0]等)

• 不需要在散列键两边加引号，这是语法上的便利:key => 'value'就可以了(如果值是一个变量，则只有key => $var).也就是说，只要密钥名称中没有空格.

• 美化打印现有JSON字符串的一种方法是:

  print JSON::XS->new->ascii->pretty->encode(decode_json $json_str);
  

可能会有一个关于是否需要围绕每个服务器条目(JSON对象)的hashref的问题；在讨论之后的一条 comments 中证实了这一点，所以我接受了它.

但是，如果输出只需要在数组中包含服务器条目的hashref(而不是每个服务器的hashref数组)，则可以修改问题中的代码以

my %server_details;

foreach my $server (@servers) {
    foreach (@details) {
        my @detail = split /,/; 
        if ($server eq $detail[0]) {
            $server_details{$server} = { ip => $detail[1], os => $detail[2] }
        }
    }   
}

现在，该散列具有所有服务器的详细信息，并且可以用密钥instance编码.那么我就不清楚总体 struct 应该是什么；一个 Select 是:

my $result = JSON->pretty->encode( { instance => [ \%server_details ] }  );