WebService::Simple使います。
#!/usr/bin/perl # # Google AJAX Language API #use strict;
use warnings;
use utf8;
use Data::Dumper;use WebService::Simple;
my $translate = WebService::Simple->new(
base_url => "http://ajax.googleapis.com/ajax/services/language/translate",
response_parser => "JSON",
params => {
v => '1.0',
langpair => 'ja|en', # 日本語→英語
}
);my $response = $translate->get({
q => '人は歩きます。',
});print Dumper $response->parse_response;
$VAR1 = {
'responseDetails' => undef,
'responseStatus' => 200,
'responseData' => {
'translatedText' => 'They walk.'
}
};
'responseDetails' => undef,
'responseStatus' => 200,
'responseData' => {
'translatedText' => 'They walk.'
}
};
