blob: 814c730bb0ef6b09dca8138bbf51df6ca39b8c9a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
use strict; use warnings; use 5.014; use LWP::Simple; use URI; use JSON; use Data::Printer; my $key=$ARGV[0]; my $base = URI->new('https://api.forecast.io/forecast'); sub URI::path_segments_push { my ($uri,@segments) = @_; $uri->path_segments($uri->path_segments,@segments); }
$base->path_segments_push( $key,"51.54,-0.37", ); my $content = get($base); my $output = decode_json($content); p $output;
|