weather forecast

1 files changed, 27 insertions, 0 deletions

diff --git a/forecast.pl b/forecast.pl
new file mode 100644
index 0000000..814c730
--- /dev/null
+++ b/forecast.pl
@@ -0,0 +1,27 @@
+#!/usr/bin/env perl
+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);
+}
+
+# home
+$base->path_segments_push(
+    $key,"51.54,-0.37",
+);
+
+my $content = get($base);
+
+my $output = decode_json($content);
+p $output;