Acme::24でジャック・バウアー的な何か

TWENTY FOURって、面白いですよね。
ということで、Acme::24を使ってみました。

Acme::24 - Your favourite TV-show Acme module

Acme::24だけでは面白くないので、Google AJAX Language APIを使って日本語翻訳もしてみました。
1時間毎にtwitterへpostしています。cronで実行するという手抜きですが。。。

#!/usr/bin/perl

use strict;
use warnings;
use Encode;
use Acme::24;
use WebService::Simple;
use Net::Twitter::Lite;

my $fact = Acme::24->random_jackbauer_fact();
$fact = $fact . " #24";

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

my $twitter = Net::Twitter::Lite->new(
    username => 'Your Username',
    password => 'Your Password',
);

sub trans {
    my $res = $api->get({
        q => shift,
    });
    return $res->parse_response->{ responseData }->{ translatedText };
}

my $jfact = &trans($fact);
$jfact = Encode::decode('utf8', $jfact);
$jfact = Encode::encode('utf8', $jfact);

$twitter->update($fact);
sleep 10;
$twitter->update($jfact)

__END__

ここでつぶやいています。
kj-labs (@kj_labs) | Twitter

Acme::24 - Your favourite TV-show Acme module - metacpan.org
http://code.google.com/intl/ja/apis/ajaxlanguage/