使用Perl调用Pinterest API换取AccessToken时遇错误求助

错误原因分析 #

你的代码存在几个关键问题，引发了各类错误：

• Base64编码带换行符：Perl的encode_base64默认会在编码结果末尾添加换行符，这会破坏Authorization头的格式，导致服务器无法正确解析请求，进而出现http://[No Host]/v5/oauth/token这类无效URL错误。
• 占位符未替换：代码中的{id}:{secret}、{code}、{my redirect url}都是占位符，没有替换为实际的client_id、client_secret、授权码、回调URL，直接使用会导致请求参数无效，触发"Missing request body"或"Invalid parameters"错误。
• 参数格式不规范：占位符未正确替换时，请求体的form数据会缺失或格式错误，进一步引发服务器返回参数相关错误。

修复方案 #

针对上述问题，按以下步骤修复代码：

1. 修正Base64编码：调用encode_base64时传入第二个空字符串参数，避免生成换行符。
2. 替换所有占位符：将{id}、{secret}替换为你的Pinterest应用的Client ID和Client Secret；{code}替换为用户授权后得到的授权码；{my redirect url}替换为授权时使用的回调URL（必须与应用设置中的完全一致）。
3. 验证请求参数：确保所有form参数完整且格式符合Pinterest API要求。

修复后的代码示例 #

use Mojo::UserAgent;
use MIME::Base64;

my $ua = Mojo::UserAgent->new;
# 替换为实际的client_id和client_secret，去掉编码后的换行符
my $base64 = encode_base64("your_client_id:your_client_secret", '');

my $url = "https://api.pinterest.com/v5/oauth/token";
my $tx = $ua->post(
    $url => {
        'Authorization' => 'Basic ' . $base64,
        'Content-Type' => 'application/x-www-form-urlencoded'
    } => form => {
        'grant_type' => 'authorization_code',
        'code' => 'user_authorization_code', # 替换为实际授权码
        'redirect_uri' => 'your_redirect_url' # 替换为实际回调URL
    }
);

# 可选：添加响应处理逻辑
if ($tx->success) {
    my $res = $tx->res->json;
    print "Access Token: " . $res->{access_token} . "\n";
} else {
    my $err = $tx->error;
    print "Error: " . $err->{message} . "\n";
    print "Response: " . $tx->res->body . "\n" if $tx->res;
}

内容的提问来源于stack exchange，提问作者Yuichi Tsunoda