perlquestion
Anonymous Monk
Hi there Monks<br><br>
I have to extract some values from a JSON data. I have a sample here where I cant get to one of the values in one of the blocks.
I would like to have this as a result:<br><br>
<code>
Yes: Mary Lou - 11111 | 1
Yes: Mary Lou - 22222 | 2
Yes: John De - 33333 | 1
Yes: Smith Doe - 4444 | 1
No sec value, just the name: Joseph D.
</code>
<br>
But I can not get to the value:<br>
<code>
Yes: Mary Lou - 11111 | 1
</code><br>
Instead, I am getting just this:<br>
<code>
Yes: Mary Lou - 22222 | 2
Yes: John De - 33333 | 1
Yes: Smith Doe - 4444 | 1
No sec value, just the name: Joseph D.
</code><br>
Any help on that?<br>
<code>
#!/usr/bin/perl
use strict;
use warnings;
use JSON::XS;
use JSON qw( );
use Data::Dumper;
my $json = '{
"required": [
{
"docs": [
{
"sec": "11111",
"number": "1"
}
],
"docs": [
{
"sec": "22222",
"number": "2"
}
],
"name": "Mary Lou"
},
{
"docs": [
{
"sec": "33333",
"number": "1"
}
],
"name": "John De"
},
{
"docs": [
{
"sec": "4444",
"number": "1"
}
],
"name": "Smith Doe"
},
{
"name": "Joseph D."
}
]
}';
my $json_data = JSON->new;
my $data = $json_data->decode($json);
for my $dta ( @{ $data->{ required } || [] } ){
if( scalar @{ $dta->{ docs } || [] } ){
for my $doc_data ( @{ $dta->{ docs } || [] } ){
if( $doc_data->{'sec'} ) {
print "\n Yes: $dta->{'name'} - $doc_data->{'sec'} | $doc_data->{'number'} \n";
}
}
}else {
warn "\n No sec value, just the name: $dta->{'name'} \n\n";
}
}
</code><br>
Thanks for looking!
9