json::xs arrays

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

how can i parse array in json::xs i can parse hash but failed to access arrays

$data = $responde->{data};
$data_info = $responde->{data_info}->{info};
[download]

print $data; #prints status
print $data_info; #prints user
[download]

how can i access names, age, location, country, email

{
  "data" : "status",
  "data_info" : {
    "info" : "user",
    "del_info" : [
      {
        "names" : "john doe",
        "age" : 28,
        "location" : [
          {
            "country" : "ca",
          
          }
        ],
        "email" : [
          "john@email.com"
        ],
        "cf" : 1.0,
        "pr" : null
      }
    ]
  }
}
[download]

Comment on json::xs arrays Select or Download Code

Replies are listed 'Best First'.
Re: json::xs arrays by choroba (Cardinal) on Mar 29, 2017 at 13:25 UTC
`my $email = $response->{data_info}{del_info}[0]{email}[0];` [download] or, if there are more than one, `my @emails = @{ $response->{data_info}{del_info}[0]{email} };` [download] and if there are more than one del_info's: `my @emails = map @{ $_->{email} }, @{ $response->{data_info}{del_info} + };` [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: json::xs arrays by bigup401 (Pilgrim) on Mar 29, 2017 at 14:19 UTC
it only parse email not accessing other data in array its the problem i was facing `{ "data" : "status", "data_info" : { "info" : "user", "deluser" : [ { "names" : "john doe", "age" : 28, "location" : [ { "country" : "ca", } ], "email" : [ "john@email.com" ], "cf" : 1.0, "pr" : null } ] } }` [download]	[reply] [d/l]
Re^3: json::xs arrays by AnomalousMonk (Archbishop) on Mar 29, 2017 at 15:05 UTC
Note that the JSON string you present in this post is different from the one presented in the OP and so does not match with choroba's code here. Is `"del_info" : [ ... ]` or `"deluser" : [ ... ]` correct? (Everything else seems the same.) Update: Another link that might be helpful in dealing with the complex data structures that can be produced by JSON parsing is the Perl Data Structures Cookbook (or perldsc). Give a man a fish: `<%-{-{-{-<`	[reply] [d/l] [select]
Re: json::xs arrays by NetWallah (Canon) on Mar 29, 2017 at 14:09 UTC
It may be easier to conceptualize, if you pull out a group of data, then extract from that: `my $del_info_0 = $responde->{data_info}{del_info}[0]; my ($names,$age,$location) = @{$del_info_0}{qw\|names age location\|}; # + Hash-ref slice my $country = $location->[0]{country};` [download] Here is an intro to references. ...it is unhealthy to remain near things that are in the process of blowing up. man page for WARP, by Larry Wall	[reply] [d/l]
Re^2: json::xs arrays by bigup401 (Pilgrim) on Mar 29, 2017 at 15:24 UTC
ARRAY<0X1ec64bc> thats the response	[reply]
Re^3: json::xs arrays by NetWallah (Canon) on Mar 29, 2017 at 17:39 UTC
Show us your code .. What did you try to print ? Which part got that response ? ...it is unhealthy to remain near things that are in the process of blowing up. man page for WARP, by Larry Wall	[reply]
Re^4: json::xs arrays by bigup401 (Pilgrim) on Mar 29, 2017 at 17:57 UTC
Re^5: json::xs arrays by NetWallah (Canon) on Mar 30, 2017 at 14:20 UTC