parse json data with underscore symbol

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

Dear all,
when I run the below code,I got this error
Not a HASH reference at mojo.pl line 112.
which refer the last line when I print it
How to fix it please??
I want to print the sample size (3,117) and other attributes
Thanks in advance
=========================

use strict;
use warnings;
use JSON qw( decode_json );
 
my $json = '{
  "_embded" : {
    "stes" : [ {
      "SampleSize" : "3,117 ",
      "ge" : false,
      "gx" : false,
      "Count" : 1922309,
      "qualifier" : null,
      "imputed" : true,
      "pooled" : false,
      "Comment" : null,
      "Id" : "G00854",
      "full" : false,
      "Requested" : false,
      "forms" : [ {
        "manufacturer" : "ymetrix"
      } ],
      "ries" : [ {
        "te" : "initial",
        "Individuals" : 4390,
        "Groups" : [ {
          "Group" : "European"
        } ],
        "Origin" : [ ],
        "Recruitment" : [ {
          "majorArea" : "Europe",
          "region" : "Northern Europe",
          "countryName" : "U.K."
        } ]
      }, {
        "te" : "epion",
        "Individuals" : 2698,
        "Groups" : [ {
          "Group" : "European"
        } ],<br>
        "country" : [ ],
        "Recruitment" : [ {
          "majorArea" : "Europe",
          "region" : "Western Europe",
          "countryName" : "Germany"
        } ]
      }, {
        "te" : "ation",
        "Individuals" : 1649,
        "Groups" : [ {
          "Group" : "NR"
        } ],
        "country" : [ ],
        "Recruitment" : [ ]
      } ],
      "sea" : {
        "trt" : "risk"
      },
      "Technologies" : [ {
        "Technology" : "GW"
      } ],
      "SampleSize" : "2,698 ",
      "publicationInfo" : {
        "Id" : "247",
        "publicationDate" : "2016-12-01",
        "publication" : "Psychiat",
        "title" : "GTW.",
        "author" : {
          "fullname" : "Perlis RH",
          "orcid" : null
        },
        "_links" : {
          "stes" : {
            "href" : " ",
            "teated" : true
          }
        }
      },
      "_links" : {
        "self" : {
          "href" : ""
        },
        "sd" : {
          "href" : "",
          "templated" : true
        },
        "asmary" : {
          "href" : ""
        },
        "ets" : {
          "href" : ""
        },
        "ss" : {
          "href" : ""
        },
        "aons" : {
          "href" : ""
        }
      }
    } ]
  },
  "_links" : {
    "self" : {
      "href" : ""
    }
  }
}';
 
my $decoded = decode_json($json);
# This is a Perl example of parsing a JSON object.
print "SampleSize = " . $decoded->{'_embded'}{'stes'}{'SampleSize'} . 
+"\n";
[download]

Comment on parse json data with underscore symbol Download Code

Replies are listed 'Best First'.
Re: parse json data with underscore symbol by choroba (Cardinal) on Aug 18, 2018 at 07:15 UTC
Please, fix your question using the `<code>...</code>` tags. "stes" seems to be an array, so you need to index it with square brackets: `print 'SampleSize = ' . $decoded->{_embded}{stes}[0]{SampleSize}, "\n" +;` [download] ($q=q:Sq=~/;[c](.)(.)/;chr(-\|\|-\|5+lengthSq)`"S\|oS2"`map{chr \|+ord }map{substrSq`S_+\|`\|}3E\|-\|`7**2-3:)=~y+S\|`+$1,++print+eval$q,q,a, [download]	[reply] [d/l] [select]
Re^2: parse json data with underscore symbol by kevbot (Vicar) on Aug 18, 2018 at 07:35 UTC
When the code and JSON are formatted properly (OP updated their post a few times), your suggestion fixes the problem.	[reply]
Re^2: parse json data with underscore symbol by amaa11 (Initiate) on Aug 18, 2018 at 07:40 UTC
Thanks a lot, it does print correctly now. But when i want print ge value `print 'ge= ' . $decoded->{_embded}{stes}[1]{ge}, "\n"` [download] I got this error. Use of uninitialized value in concatenation (.) or string	[reply] [d/l]
Re^3: parse json data with underscore symbol by kcott (Archbishop) on Aug 18, 2018 at 10:14 UTC
Array indices are zero-based. The "ge" key is in the first element (i.e. index 0). So: `$decoded->{_embded}{stes}[1]{ge} # BAD $decoded->{_embded}{stes}[0]{ge} # GOOD $decoded->{_embded}{ries}[1]{te} # BAD $decoded->{_embded}{ries}[0]{te} # GOOD` [download] By the way, "`Use of uninitialized value ...`" is a warning, not an error. See "perldiag - Perl diagnostic messages" for a description of this warning. — Ken	[reply] [d/l] [select]
Re^4: parse json data with underscore symbol by amaa11 (Initiate) on Aug 19, 2018 at 09:05 UTC
Re^5: parse json data with underscore symbol by kcott (Archbishop) on Aug 19, 2018 at 11:15 UTC
Re^4: parse json data with underscore symbol by ikegami (Patriarch) on Aug 20, 2018 at 16:10 UTC
Re^4: parse json data with underscore symbol by amaa11 (Initiate) on Aug 18, 2018 at 11:55 UTC
Re: parse json data with underscore symbol by kevbot (Vicar) on Aug 18, 2018 at 07:16 UTC
Hello amaa11, Please see Writeup Formatting Tips for advice on how to properly format your post. When I copy & paste your code from the perlmonks page and run it, I get a error related to improperly formatted JSON. I think your JSON string is not being displayed properly on the site, and this should be fixed by wrapping your code with `<code>` tags.	[reply] [d/l]
Re^2: parse json data with underscore symbol by kevbot (Vicar) on Aug 18, 2018 at 07:25 UTC
Hello amaa11, I see that you added the code tags, but now your code is no longer valid perl syntax due to the appearance of extra `<br>` tags on every line. UPDATE: I see that you fixed the formatting problems, but now when I run your code I get an error related to improperly formatted JSON. When I run your code as is, I get this error `'"' expected, at character offset 811 (before "<br>\n "count...") at t.pl line 108.` When I manually remove the offending `<br>` tag, I finally get the error that you mentioned `Not a HASH reference at t.pl line 110.`	[reply] [d/l] [select]
Re^3: parse json data with underscore symbol by amaa11 (Initiate) on Aug 18, 2018 at 07:43 UTC
Dear kevbot, Yes I updated the all post as you asked still have a small problem when I print the second element in the array `print 'ge= ' . $decoded->{_embded}{stes}[1]{ge}, "\n"` [download] I got this error. Use of uninitialized value in concatenation (.) or string	[reply] [d/l]
Re^4: parse json data with underscore symbol by kevbot (Vicar) on Aug 18, 2018 at 07:51 UTC
Re^5: parse json data with underscore symbol by amaa11 (Initiate) on Aug 19, 2018 at 10:05 UTC
Some notes below your chosen depth have not been shown here


Pathologically Eclectic Rubbish Lister
	PerlMonks