Twitter を更新する perl スクリプト

メールを送ると twitter に更新するスクリプトを作ってみた。キモの部分はこれだけ。方々のドキュメントを見たりしてちょっと時間が掛かった。

use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
$ua->credentials( 'twitter.com:80',
                  'Twitter API',
                  'UserName',
                  'PassWord' );
$ua->post( 'http://twitter.com/statuses/update.json',
           [ status => 'utf-8 encoded Status' ] );

この前には ISO-2022-JP から UTF-8 に変換したり、改行を空白に変換したりする処理があったり、この後にはファイルにログを落とす処理があったりします。また後ほど晒してみましょうか。