otsune's SnakeOil

Google AJAX Language APIを使って翻訳（WebService::Simple版）

http://perl.g.hatena.ne.jp/ishiduca/20101020/1287575268 を見て。

WebService::Simpleで書いてみた。

#!/usr/bin/perl 
use strict;
use warnings;

use WebService::Simple;
use Encode;

my $text = join " ", @ARGV;

my $googletrans = WebService::Simple->new(
    base_url => 'http://ajax.googleapis.com/ajax/services/', 
    response_parser => 'JSON', 
    params => {v => '1.0', langpair => 'ja|en'}, 
);

my $response = $googletrans->get(
    'language/translate', { q => $text}
);

print encode_utf8($response->parse_response->{responseData}->{translatedText}), "\n";