[Perl] Twitter APIで自分のステータスを更新する

Twitterの公式APIを利用して、Perlからステータスを更新することが可能だ。Net::Twitterモジュールを使えばいとも簡単に実現できる。

Net::Twitterモジュールはもちろん標準では入らないので別途インストールする。同時に「LWP::UserAgent」「JSON::Any」も必要だ。

サンプル

;#
;#PerlからTwitterで発言する
;#

#--------------------------------------#
#モジュール
#--------------------------------------#
use strict;
use Net::Twitter;
use Jcode;

#------------------------#
#        ログイン        #
#------------------------#
my $twit = Net::Twitter->new(
          username=>"katsube"   #ユーザー名
        , password=>"hogehoge"  #パスワード
      );

#------------------------#
#         発 言          #
#------------------------#
#-- 発言するセリフの準備 --#
my $text = 'ふがふが';

#-- UTF8へ --#
Jcode::convert(\$text, 'utf8');

#-- Twitterへ送信 --#
my $result = $twit->update($text);

実行結果

発言は必ずUTF8で行うこと。これだけ気をつけておけば日本語も問題なく通る。書くまでも無いと思うが、ログインしているユーザーのステータスを、一回のアップデートにつき一回の更新が行える。

また前回と全く同じ文字列ははじかれるようなので(未検証)、更新がされない場合は適当に文字列を変えてトライすると良い。