blob: 469483b2002328b2a7aac3df5479a2be2366bd8f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
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);
|
