PerlでコマンドラインからTwitterとJaikuに同時投稿するスクリプト

TwitKu とかずっと開きっぱなしだとアレなこともあったりする今日この頃なので、コマンドラインから JaikuTwitter に同時投稿するPerlスクリプト書いた。というか Net::TwitterNet::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 => "",
             userkey => "" );
my $t = Net::Twitter->new( username => "",
           password => "" );

foreach (@ARGV) {
    my $m = Encode::encode('utf8', Encode::decode('Guess', $_));
    $t->update( $m );
    $j->setPresence( message => $m );
}
exit;

Encode::Guess してるので、Windows でも Mac でも大丈夫かも?

Twitter&Jaiku cross posting perl script

エラー処理とかそういうのはなにもしてません。

Similar Posts: