perl で OAuth2 の token を取ったりする

[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。

2025/12/06 02:34

ただいまコメントを受けつけておりません。

perl で OAuth2 の token を取ったりする

use strict;
use LWP::UserAgent;
use JSON::PP;

my $browser = LWP::UserAgent->new;
my $json = JSON::PP->new;

sub getAccessToken {  
  my $code = $_[0];
  my $redirect_url = $_[1];
  my $oauth_scope = $_[2];
  my $oauth_client_id = $_[3];
  my $oauth_secret_id = $_[4];
  my $token_url = "https://accounts.google.com/o/oauth2/token";

  my $token_request = HTTP::Request->new(POST => $token_url);
  $token_request->content_type('application/x-www-form-urlencoded');
  my $body = "redirect_uri=$oauth_redirect_url&scope=$oauth_scope&client_id=$oauth_client_id&client_secret=$oauth_secret_id&grant_type=authorization_code&code=$code";
  $token_request->content($body);
  my $token_response = $browser->request($token_request);
  my @rawResult = decode_json $token_response->content;
  my $token = $rawResult[0]->{'access_token'};
  return $token;
}

print getAccessToken(
  "nankanankaNankaRondomeNaCodeCode9877",
  "http%3A%2F%2Fsheeprogramming.iku4.com%2F",
  "https://www.googleapis.com/auth/userinfo.profile%20email",
  "5348789543906-o86eefe6g7clf855htsefii06cin.apps.googleusercontent.com",
  "ran51Random25"
);

こんな感じでアクセストークンが取得できた。今後なんか使いそうなのでメモ。