Perl な oAuth してツイートするスクリプト

　
　あらかじめ http://twitter.com/oauth_clients でアプリ名とかを登録して，次のものを取得しておく。
　Consumer key
　Consumer secret
　Access Token (oauth_token)
　Access Token Secret (oauth_token_secret)
　Access Token とかは，登録済みアプリ画面の右にある My Access Token のリンクから取得する。
　
　でもって，スクリプトはこんな感じ。Tweet.pl とでもしておく。use しているライブラリがないときはあらかじめ CPAN でインスコしておく。
　

#!/usr/bin/perl

use strict;
use Encode;
use warnings;
use Net::Twitter::Lite;
use Data::Dumper;

if(! @ARGV){
	printf('Usage: $0 ""');
	exit(1);
}


my %CONSUMER_TOKENS = (
	consumer_key 	=> '',
	consumer_secret	=> ''
);

my $ACCESS_TOKEN	= '';
my $ACCESS_TOKEN_SECRET	= '';

my $TwitterObject = Net::Twitter::Lite->new(%CONSUMER_TOKENS);
$TwitterObject->access_token( $ACCESS_TOKEN);
$TwitterObject->access_token_secret($ACCESS_TOKEN_SECRET);

my $status = $TwitterObject->update({ status => decode('utf8', $ARGV[0]) });

#print Dumper $status;
print "Status Update!\n";

　実行権限を付与して，コマンドラインから「Tweet.pl "ほげほげ"」とすればおｋ。
　自分専用ついったクライアントになるはず。