こんな感じで、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);
1 件のコメント:
大変わかりやすくて、参考になりました。ありがとうございました。
コメントを投稿