diff options
| author | Ruben Westerberg <drclaw@mac.com> | 2019-12-06 17:02:10 +1000 |
|---|---|---|
| committer | Ruben Westerberg <drclaw@mac.com> | 2019-12-06 17:02:10 +1000 |
| commit | ce3d8ea2ebac25519004e8da853efcb2b9a41aef (patch) | |
| tree | eaf4dd9e102261c9f24bbb23620477f61b258344 | |
| parent | 76fafa740131a2f84af7727428b424d31cb2616d (diff) | |
| download | perlweeklychallenge-club-ce3d8ea2ebac25519004e8da853efcb2b9a41aef.tar.gz perlweeklychallenge-club-ce3d8ea2ebac25519004e8da853efcb2b9a41aef.tar.bz2 perlweeklychallenge-club-ce3d8ea2ebac25519004e8da853efcb2b9a41aef.zip | |
added ch-2.pl
| -rwxr-xr-x | challenge-037/ruben-westerberg/perl/ch-2.pl | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/challenge-037/ruben-westerberg/perl/ch-2.pl b/challenge-037/ruben-westerberg/perl/ch-2.pl new file mode 100755 index 0000000000..89f3e50a66 --- /dev/null +++ b/challenge-037/ruben-westerberg/perl/ch-2.pl @@ -0,0 +1,32 @@ +#!/usr/bin/env perl +use strict; +use warnings; + +use HTTP::Tiny; + +print "Downloading November Data...\n"; +my $res=HTTP::Tiny->new->get("https://www.timeanddate.com/sun/uk/london?month=11&year=2019"); +my $nov=$$res{content}; + +print "Downloading December Data...\n"; +$res=HTTP::Tiny->new->get("https://www.timeanddate.com/sun/uk/london?month=12&year=2019"); +my $dec= $$res{content}; + +my $delta=extractDaylight($dec)- extractDaylight($nov); +my $sign= $delta>=0?"+":"-"; $delta=abs($delta); +my $hours=int($delta / 3600); $delta-=$hours*3600; +my $mins=int ($delta/60); $delta-=$mins*60; + +print "December gained $sign$hours:$mins:$delta compared to November\n"; + + +sub extractDaylight { + my $text=shift; + my $total; + while ($text=~ /<td class="c tr sep-l"(?:.*?)>(.+?)<\/td>/g) { + my ($h,$m,$s)=split ":",$1; + $total+=$h*3600+$m*60+$s; + } + $total; +} + |