forecast-file.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

#!/usr/bin/env perl 
use strict;
use warnings;
use 5.014;
use WebService::ForecastIo::Response;
use Path::Class;
use Data::Printer;
 
my $res = WebService::ForecastIo::Response->new(file($ARGV[0])->slurp);
p $res;
 
my $hourly_summary_spans = $res->hourly->spans_by_string('summary');
 
p $hourly_summary_spans;
 
my $hourly_temp_spans = $res->hourly->spans_by_number('temperature',1);
 
p $hourly_temp_spans;