perl - 通过标头中发送的 API 密钥进行身份验证时出现问题 WWW::Mechanize

Question

要从 API 获得响应，密钥必须与请求一起作为标头发送。如果我使用请求从命令行发送它成功。但是，如果我使用curl -Ss -H "APIKEY: KEY" https://www.example.com/some/stuff

my $path = "https://www.example.com/some/stuff"
my $mech = WWW::Mechanize->new();
$mech->add_header('APIKEY'=>'KEY');
$mech->get($path);

我收到。如何正确提供此标头以便进行身份验证？Error GETing https://www.example.com/some/stuff: Can't connect to www.example.com:443 (Permission denied)

Answer 1

我编写了一个服务器端脚本，显示两个示例的标头输出，并且在两种情况下 APIKEY 设置相同。HTTP_ACCEPT / HTTP_ACCEPT_ENCODING 和 WWW::Mechanize 存在一些差异，添加了一些额外的标头：

'downgrade-1.0' => '1'
'force-response-1.0' => '1'
'nokeepalive' => '1'

所以我建议问题出在其他地方。