[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);