From 473e75c01cf702c79883061fdd04b040fb75625a Mon Sep 17 00:00:00 2001
From: 冯昶 <fengchang@novel-supertv.com>
Date: Sat, 8 Jun 2019 22:23:17 +0800
Subject: challenge 11 #3 perl5 solution

---
 challenge-011/feng-chang/perl5/ch-3.pl | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100755 challenge-011/feng-chang/perl5/ch-3.pl

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);
-- 
cgit