perlでOAuth::Liteを使う

こんな感じで、OAuthを使って投稿できます。

OAuth::Liteを使うためのモジュールが結構必要。

Class::Accessor: 0.31

Class::Data::Accessor: 0.04001
Class::ErrorHandler: 0.01
Compress::Zlib: 2.001
Crypt::OpenSSL::RSA: 0.25
Crypt::OpenSSL::Random: 0.04
Digest::SHA: 5.45
LWP: 0
List::MoreUtils: 0.21
MIME::Base64: 3.07
UNIVERSAL::require: 0.11
URI: 1.35

use LWP::UserAgent;
use OAuth::Lite::Cosumer;

my $consumer = new OAuth::Lite::Consumer(
  'consumer_key' => $c_key,
  'consumer_secret' => $c_secret
);

my $token = new OAuth::Lite::Token(
  'token' => $a_token,
  'secret' => $a_secret
);

my $req = $consumer->gen_oauth_request(
  'method' => 'POST',
  'url' => 'http://twitter.com/statuses/update.xml',
  'token' => $token,
  'params' => {status => 'テスト'}
);

my $ua = new LWP::UserAgent();
my $res = $ua->request($req);