blob: 5d78906a911969d98eabac726e47d899243d21c7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
use strict; use warnings; use 5.014; use WebService::ForecastIo; use JSON; use Data::Printer; my $key=$ARGV[0]; my $fio = WebService::ForecastIo->new({ api_key => $key, }); my $response = $fio->request({ latitude => 51.54, longitude => -0.37, exclude => ['minutely','flags'], }); my $output = decode_json($response); p $output;
|