http://coderepos.org/share/browser/lang/perl/Net-OAuth-Consumer 使い方は↓こんな感じ。 #!/usr/bin/perl # index.cgi use strict; use warnings; use CGI; use Net::OAuth::Consumer; use Template; use DB_File; my $q = CGI->new; tie my %oauth_token, "DB_File", "oauth_token.db"; my $oauth = Net::OAuth::Consumer->new({ query => $q, consumer_key => 'your_consumer_key', consumer_secret => 'your_consumer_secret', request