in reply to decoding a JSON object
The same as the last time you asked, and the time before that :P
#!/usr/bin/perl use strict; use warnings; use Mojo::UserAgent; use feature 'say'; my $url_food = 'https://api.nal.usda.gov/fdc/v1/food/170581?api_key=O +c4bD3tFWgPAscW0R0gBRivwqEdt0N182PXCGNQO'; my $ua_food = Mojo::UserAgent->new; my $json_food = $ua_food->get($url_food)->res->json; say $json_food->{fdcId}; foreach my $nutrients( @{$json_food->{'foodNutrients'}} ){ say $nutrients->{'nutrient'}{'name'}; }
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^2: decoding a JSON object
by anautismobserver (Sexton) on Nov 23, 2022 at 18:48 UTC | |
by marto (Cardinal) on Nov 23, 2022 at 20:17 UTC |
In Section
Seekers of Perl Wisdom