Accessing elements in a list of json in perl

Question

I have the following object

$VAR1 = [
          {
            'value' => {
                         'a' => 'd',
                         'b' => 'e',
                         'c' => 'f'
                       }
          },
          {
            'value' => {
                         'a' => 'g',
                         'b' => 'h',
                         'c' => 'x'
                       }
          }
        ];

I have to traverse this object to get values for a,b,c. Please can someone help ?

This article is likely to help: http://stackoverflow.com/questions/8258387/accessing-values-of-json-structure-in-perl. I would mark it as a duplicate but already votes to close for other reasons. — Martin, Sep 21 '16 at 20:13
I'm guessing the problem is that you don't actually have a variable called `$VAR1` - that's just the output from `Data::Dumper`. — Dave Cross, Sep 22 '16 at 08:47

Gilles Quénot · Accepted Answer · 2016-09-25T20:30:16.337

0

Try this:

foreach my $arr (@$VAR1) {
    print $arr->{value}->@{ ('a'..'c') };
}

Or even shorter :

print map{ $_->{value}->@{ ('a'..'c') } } @{ $VAR1 }[0..$#$VAR1];

OUTPUT

defghx

edited Sep 25 '16 at 20:30

answered Sep 21 '16 at 20:27

Gilles Quénot

173,512
41
224
223

1

or `0..$#$VAR1` – ysth Sep 21 '16 at 21:27

Accessing elements in a list of json in perl

1 Answers1

OUTPUT