Net::TwitterでOAuthのアクセストークン貰ってくる

Perl

自家製りむったー的なの作ったってTwitterでpostしたら欲しいって人が何人か居たからそれを他の人にも使えるように！って思ってOAuthの認証出来るようにしました。

まぁそもそも普通の人のPCにはPerlとか入ってないからそれをクリアする必要があるんだけども。
とりあえず、ぐぐっても日本語ページでソースそのまま載っかてる感じのとこが無かったからメモ含め。

use strict;
use warnings;
use utf8;
use Net::Twitter;


# OAuth認証
my $consumer_key = 'CONSUMER_KEY';
my $consumer_secret = 'CONSUMER_SECRET';
my $access_token;
my $access_token_secret;

my $nt = Net::Twitter->new(
	traits => [ 'API::REST', 'OAuth' ],
	consumer_key => $consumer_key,
	consumer_secret => $consumer_secret,
);


print 'access this url  : '.$nt->get_authorization_url."\n";
	
print 'input verifier PIN : ';
my $verifier = <STDIN>; 
chomp $verifier;
my($access_token, $access_token_secret, $user_id, $screen_name) = $nt->request_access_token(verifier => $verifier);

print "Access token : ".$access_token."\n";
print "Access token secret : ".$access_token_secret."\n";
# 認証終了

たぶんこんな感じ。Net::Twitterのリファレンスっぽいとこにまるまる載ってた感じ。
Net::Twitter::OAuth - search.cpan.org