Perl JSON encode creates json array from single key

Question

Using Perl to encode hash to be use by Java program. The JSON encode converts a single key to JSON array element.

my %attribute;
push (@{$attribute {"Color"}},'Green');
push (@{$attribute {"Model"}}, ('Model_1','Model_2'));
print Dumper(\%attribute);
my $json_attr = JSON->new->utf8->encode(\%attribute);
print $json_attr;

Output:

$VAR1 = {
    'Model' => [
        'Model_1',
        'Model_2'
        ],
    'Color' => [
        'Green'
        ]
};
{"Model":["Model_1","Model_2"],"Color":["Green"]}

I need that the single key in the hash will look like this: {"Color":"Green"} (without the square brackets) Thanks.

amon · Accepted Answer · 2013-10-14 14:09:12Z

6

First you create an array, and want it looks like not array? May be not create it? No array = no problems.

$attribute{'Color'} = 'Green';

But if you really need to do this you can use map:

%attribute = map {
   $_, @{$attribute{$_}} == 1 ? $attribute{$_}[0] : $attribute{$_}
} keys %attribute;

edited Oct 14, 2013 at 14:09

amon

57.8k2 gold badges93 silver badges152 bronze badges

answered Oct 14, 2013 at 12:03

Suic

2,5112 gold badges19 silver badges31 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

Perl JSON encode creates json array from single key

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related