From 3de4c4b1486f1930602f000858d49180e81eb393 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Mon, 13 May 2013 19:31:29 +0100
Subject: weather forecast

---
 forecast.pl | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)
 create mode 100644 forecast.pl

(limited to 'forecast.pl')

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;
-- 
cgit v1.2.3