$ ./1.marshall.pl JSON error at line 110, byte 2639/2647: Unexpected character '_' parsing initial state: expecting whitespace: 'n', '\r', '\t', ' ' at ./1.marshall.pl line 8, line 1. $ cat 1.marshall.pl #!/usr/bin/perl -w use 5.016; use JSON::Parse 'parse_json'; my $json = do{local $/ = undef;}; my $out = parse_json $json; my %xlated_abbrev; #simple abbreviation table => description foreach my $key (keys %{$out->{icons}}) #gen simple xlate table { $xlated_abbrev{$key} = $out->{icons}{$key}{description}; } my @urls = ( 'https://api.weather.gov/icons/land/day/tsra_sct,20/tsra_sct,40?size=medium', 'https://api.weather.gov/icons/land/day/rain_showers,30/tsra_hi,30?size=medium', 'https://api.weather.gov/icons/land/night/rain_showers,30/rain_showers?size=medium', 'https://api.weather.gov/icons/land/day/bkn?size=medium' ); foreach my $url (@urls) { my $last_path = (split('/',$url))[-1]; my ($abbrev_to_xlate) = $last_path =~ /^(\w+)/; print "URL = $url\n"; print " $abbrev_to_xlate => \'$xlated_abbrev{$abbrev_to_xlate}\'\n\n"; } __DATA__ { "@context": [], "icons": { "skc": { "description": "Fair/clear" }, "few": { "description": "A few clouds" }, "sct": { "description": "Partly cloudy" }, "bkn": { "description": "Mostly cloudy" }, "ovc": { "description": "Overcast" }, "wind_skc": { "description": "Fair/clear and windy" }, "wind_few": { "description": "A few clouds and windy" }, "wind_sct": { "description": "Partly cloudy and windy" }, "wind_bkn": { "description": "Mostly cloudy and windy" }, "wind_ovc": { "description": "Overcast and windy" }, "snow": { "description": "Snow" }, "rain_snow": { "description": "Rain/snow" }, "rain_sleet": { "description": "Rain/sleet" }, "snow_sleet": { "description": "Rain/sleet" }, "fzra": { "description": "Freezing rain" }, "rain_fzra": { "description": "Rain/freezing rain" }, "snow_fzra": { "description": "Freezing rain/snow" }, "sleet": { "description": "Sleet" }, "rain": { "description": "Rain" }, "rain_showers": { "description": "Rain showers (high cloud cover)" }, "rain_showers_hi": { "description": "Rain showers (low cloud cover)" }, "tsra": { "description": "Thunderstorm (high cloud cover)" }, "tsra_sct": { "description": "Thunderstorm (medium cloud cover)" }, "tsra_hi": { "description": "Thunderstorm (low cloud cover)" }, "tornado": { "description": "Tornado" }, "hurricane": { "description": "Hurricane conditions" }, "tropical_storm": { "description": "Tropical storm conditions" }, "dust": { "description": "Dust" }, "smoke": { "description": "Smoke" }, "haze": { "description": "Haze" }, "hot": { "description": "Hot" }, "cold": { "description": "Cold" }, "blizzard": { "description": "Blizzard" }, "fog": { "description": "Fog/mist" } } } __END__ $