diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2019-06-09 05:57:44 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2019-06-09 05:57:44 +0100 |
| commit | 01a1bab471b5869b15eecbcece8c37ac0cac41f6 (patch) | |
| tree | e151a118528878ebc454d522c2c305624a04ba07 | |
| parent | 799e37165d30d9c4f7ee4ca12b9d0130b6e29a4f (diff) | |
| parent | 473e75c01cf702c79883061fdd04b040fb75625a (diff) | |
| download | perlweeklychallenge-club-01a1bab471b5869b15eecbcece8c37ac0cac41f6.tar.gz perlweeklychallenge-club-01a1bab471b5869b15eecbcece8c37ac0cac41f6.tar.bz2 perlweeklychallenge-club-01a1bab471b5869b15eecbcece8c37ac0cac41f6.zip | |
Merge pull request #228 from seaker/mybranch
challenge 11 #3 perl5 solution
| -rwxr-xr-x | challenge-011/feng-chang/perl5/ch-3.pl | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/challenge-011/feng-chang/perl5/ch-3.pl b/challenge-011/feng-chang/perl5/ch-3.pl new file mode 100755 index 0000000000..469483b200 --- /dev/null +++ b/challenge-011/feng-chang/perl5/ch-3.pl @@ -0,0 +1,26 @@ +#!/bin/env perl + +use Modern::Perl; +use WWW::Mechanize; +use JSON; +use Data::Dumper; +use Getopt::Long; + +my $base_url = 'http://api.openweathermap.org/data/2.5/weather'; +my $app_id = 'appid=82642c9af842d8d57f7df99b291e0e75'; + +my $city = 'london'; +my $country = ''; + +GetOptions( + 'city=s' => \$city, + 'country=s' => \$country, +); + +my $m = WWW::Mechanize->new() or die "cannot initialize robot\n"; + +my $url = "$base_url?q=$city"; +$url .= ",$country" if $country; +$url .= "&$app_id"; + +print Dumper(decode_json($m->content)) if $m->get($url); |