TwitKu とかずっと開きっぱなしだとアレなこともあったりする今日この頃なので、コマンドラインから Jaiku と Twitter に同時投稿するPerlスクリプト書いた。というか Net::Twitter と Net::Jaiku を使ってみたかっただけだったりする。
#!/usr/local/bin/perl
use strict;
use warnings;
use utf8;
use Encode;
use Encode::Guess qw/ shiftjis euc-jp 7bit-jis utf8 /;
use Net::Jaiku;
use Net::Twitter;
my $j = Net::Jaiku->new( username => "<your_jaiku_id>",
userkey => "<your_jaiku_api_key>" );
my $t = Net::Twitter->new( username => "<your_twitter_id>",
password => "<your_twitter_password>" );
foreach (@ARGV) {
my $m = Encode::encode('utf8', Encode::decode('Guess', $_));
$t->update( $m );
$j->setPresence( message => $m );
}
exit;
Encode::Guess してるので、Windows でも Mac でも大丈夫かも？
エラー処理とかそういうのはなにもしてません。
About