Perl HTTP+JSON example

get-weather.pl

use v5.16;
use HTTP::Tiny;
use JSON::PP 'decode_json';

my ( $lat, $lon ) = ( 54.5, -1.55 );
my $url = sprintf(
	'https://api.open-meteo.com/v1/forecast?latitude=%s&longitude=%s'.
	'&daily=temperature_2m_max,temperature_2m_min&timezone=Europe/London',
	$lat,
	$lon,
);

my $client = HTTP::Tiny->new;
my $response = $client->get( $url );

die "Failed!" unless $response->{success};

my $data = decode_json( $response->{content} );

printf(
	"On %s: min temp %s, max temp %s\n",
	$data->{daily}{time}[$_],
	$data->{daily}{temperature_2m_min}[$_],
	$data->{daily}{temperature_2m_max}[$_],
) for 0 .. 4;