diff options
author | dakkar <dakkar@thenautilus.net> | 2023-12-09 14:16:23 +0000 |
---|---|---|
committer | dakkar <dakkar@thenautilus.net> | 2023-12-09 14:16:23 +0000 |
commit | 1a8d9a8c2772caa6cf44ce2dbe9c32a573a57b3a (patch) | |
tree | edc8da3dfdfbfc6838fac95f1f5c47b960bf6ad5 /forecast.pl | |
parent | Merge branch 'new-api' (diff) | |
download | HomePanel-1a8d9a8c2772caa6cf44ce2dbe9c32a573a57b3a.tar.gz HomePanel-1a8d9a8c2772caa6cf44ce2dbe9c32a573a57b3a.tar.bz2 HomePanel-1a8d9a8c2772caa6cf44ce2dbe9c32a573a57b3a.zip |
more cleaning
Diffstat (limited to 'forecast.pl')
-rw-r--r-- | forecast.pl | 22 |
1 files changed, 0 insertions, 22 deletions
diff --git a/forecast.pl b/forecast.pl deleted file mode 100644 index 927e980..0000000 --- a/forecast.pl +++ /dev/null @@ -1,22 +0,0 @@ -#!/usr/bin/env perl -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 $json = $fio->request({ - latitude => 51.54, - longitude => -0.37, - exclude => ['flags','sources'], - raw => 1, -}); - -say $json; |