Attempting to interpret JSON data

mr007619 has asked for the wisdom of the Perl Monks concerning the following question:

So I'm having an issue with interpreting JSON data and documentation I've been reading has me admittedly confused and it seems like this is a pretty much a newbie/trivial question. Below is my code and the issue I'm having:

$request = HTTP::Request->new(GET => 'https://xxxx');
$ua = LWP::UserAgent->new;
$response = $ua->request($request);
$decodejs = decode_json $response->content;
print Dumper $decodejs;
[download]

The output of this gives me something like this:

$VAR1 = { 'lbvserver' => [ {, 'name' => 'name1', 'ipv46' => '192.168.1.1', }, { 'name' => 'name2', 'ipv46' => '10.1.1.1', } and so on.

I'm trying to directly grab name and IP values as an instance and having the worst time figuring out the correct way to do it. Any help or direct reference to a page I should be reading would be greatly appreciated.

Comment on Attempting to interpret JSON data Download Code

Replies are listed 'Best First'.
Re: Attempting to interpret JSON data by moritz (Cardinal) on May 16, 2012 at 19:47 UTC
As a simple rule, for every `{` in the Data::Dumper output you need a `{` for dereferencing, and for every `[` in the dumper output you need a `[` for dereferencing: `# $VAR1 = { 'lbvserver' => [ {, 'name' => 'name1', ' # ^ ^ ^ my $name = $decode_json->{lbvserver}[0]{name}; # ^ ^ ^` [download] perlreftut and maybe perldsc should teach you enough to figure it out. Perl 6 - the future is here, just unevenly distributed	[reply] [d/l] [select]
Re^2: Attempting to interpret JSON data by mr007619 (Novice) on May 16, 2012 at 20:24 UTC
Thank you, exactly what I was looking for and the document structures cookbook is precisely what I've been searching for. Thanks again!	[reply]
Re^2: Attempting to interpret JSON data by mr007619 (Novice) on May 16, 2012 at 21:36 UTC
One last question here after finally starting to understand array and hash references. So since this is a mix of both, is the best way to loop through each array of hashes to grab the count of array elements as such `$count = -1; foreach $elem (@{$decodejs->{'lbvserver'}}) { $count++; } $num = 0; while ($num <= $count) { print "$decodejs->{'lbvserver'}[$num]{'valueIwant'}\n"; $num++ }` [download]	[reply] [d/l]
Re^3: Attempting to interpret JSON data by Eliya (Vicar) on May 16, 2012 at 22:10 UTC
Maybe simply `for my $elem (@{$decodejs->{lbvserver}}) { print "$elem->{valueIwant}\n"; }` [download]	[reply] [d/l]
Re^4: Attempting to interpret JSON data by mr007619 (Novice) on May 16, 2012 at 23:21 UTC
Re: Attempting to interpret JSON data by Anonymous Monk on May 16, 2012 at 19:51 UTC
See also JSON::Path, its like xpath or jquery for json	[reply]