twitterとwassrにコマンドラインから同時投稿

どっかにありそうなネタだけどこんな暑いなか自分で書いてみた。

use strict;
use warnings;

use Encode;
use YAML::Syck;
use Net::Twitter;

use lib ".../WWW-Wassr/trunk/lib";
use WWW::Wassr;

my $username = "username";
my $pwd = "password";

my $text = $ARGV[0];
encode ('utf-8', $text);

my $twitter = Net::Twitter->new(
    user => $username,
    password => $pwd,
);

my $wassr = WWW::Wassr->new(
   user => $username,
   passwd => $pwd,
);
$wassr->login();

my $result = $twitter->update($text);
if ($result->{created_at}){
        warn "twitter:成功";
}else{
        warn "twitter:失敗";
}

$result = $wassr->update(status => $text);
if($result->is_success){
        warn "wassr:成功";
}else{
        warn "wassr:失敗";
}

wassrはnipotanさんが作成したモジュールがcodereposにあるので、それを使用。

http://svn.coderepos.org/share/lang/perl/WWW-Wassr/

すげぇ、簡単に掛けました。

これで、ファイルに実行権限を与えてパスを通せば、コマンドラインでいつでもtwitterとwassr同時投稿ができるようになりました。

めでたしめでたし。