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で行うこと。これだけ気をつけておけば日本語も問題なく通る。書くまでも無いと思うが、ログインしているユーザーのステータスを、一回のアップデートにつき一回の更新が行える。
また前回と全く同じ文字列ははじかれるようなので(未検証)、更新がされない場合は適当に文字列を変えてトライすると良い。