weatherhacks.pl

#!/usr/bin/env perl
use strict;
use warnings;
use Getopt::Long::Descriptive;
use WebService::Simple;
use Encode;
use Term::Encoding qw(term_encoding);

my $base_url = 'http://weather.livedoor.com/forecast/webservice/rest/v1';

my $format = 'Usage: %c %o';
my @opts = (
    ['help' => 'print this message'],
    ['city=i' => 'city id', {
        required => 1,
    }],
    ['day=s' => '[today|tomorrow|dayaftertomorrow]', {
        default => 'today',
    }],
);
my ($opts, $usage) = describe_options($format, @opts);
$usage->die if $opts->{help};

my $service = WebService::Simple->new(
    base_url => $base_url,
);
my $response = $service->get($opts);
my $obj = $response->parse_response;
print encode(term_encoding, $obj->{description});