这段代码为
帖子网址为https://accounts.google.com/o/oauth2/token
范围是“https://www.googleapis.com/auth/userinfo.profile https://www.googleapis.com/auth/userinfo.email https://www.google.com/m8/feeds/”
授权类型为授权代码
代码来自谷歌
我的 %args = (
client_id => $config->{client_id},
client_secret => $config->{client_secret},
redirect_uri => $config->{redirect_uri},
范围 => $config->{范围}，
grant_type => $config->{grant_type},
代码 => $代码，
);
我的 $ua = LWP::UserAgent->new;
我的 $ua_response = $ua->post( $uri, \%args );
我得到的是如下所示：（响应是 html 转义）
$VAR1 = \祝福（{
'_content' => '<HTML> <HEAD> <TITLE>错误处理 OAuth 2 请求</TITLE> </HEAD> <BODY BGCOLOR="#FFFFFF" TEXT="#000000"> <H1>错误处理 OAuth 2请求</H1> <H2>错误500</H2> </BODY> </HTML>'，
1990 年 1 月 1 日 00:00:00 GMT', 'pragma' => 'no-cache', 'server' => 'GSE', 'title' => 'Error processing OAuth 2 request', 'x-content-type -options' => 'nosniff', 'x-frame-options' => 'SAMEORIGIN', 'x-xss-protection' => '1; 模式=块' }, 'HTTP::Headers' ),
'_msg' => '处理 OAuth 2 请求时出错',
'_protocol' => 'HTTP/1.1',
'_rc' => '500',
'_request' => bless( { '_content' => 'grant_type=authorization_code&redirect_uri=http%3A%2F%2Fwww.xxx.com%2Foauth%2Fcallback%2Fgoogle&client_secret=xxx&client_id=xxx.apps.googleusercontent.com&code=4%2FSihUM4Zw1OPiWLMi- gdGvKOfiY4M.cggfQHKT31QagrKXntQAax3e4-qpbgI&scope=https%3A%2F%2Fwww.googleapis.com%2Fauth%2Fuserinfo.profile+https%3A%2F%2Fwww.googleapis.com%2Fauth%2Fuserinfo.email+https%3A%2F%2Fwww。 google.com%2Fm8%2Ffeeds%2F',
'_headers' => bless( { 'content-length' => 424, 'content-type' => 'application/x-www-form-urlencoded', 'user-agent' => 'libwww-perl/6.04' }, 'HTTP::Headers' ),
'_method' => 'POST',
'_uri' => bless(do{\(my $o = 'https://accounts.google.com/o/oauth2/token')}, 'URI::https' ),
'_uri_canonical' => ${$VAR1}->{'_request'}->{'_uri'} },
'HTTP::Request' ) }, 'HTTP::Response' );
实际上它有时会起作用，但并非适用于所有情况。
有什么问题吗？