Perl中的Bing API身份验证

Question

我正在尝试使用Bing的搜索API来获取结果，但身份验证无法正常运行。

这是我写的代码：

#!/usr/bin/perl

use warnings;
use WWW::Mechanize;
use Crypt::SSLeay;

$mech = WWW::Mechanize->new();
$url  = "https://api.datamarket.azure.com/Bing/SearchWeb/Web?Query=%27Xbox%27&$top=10&$format=JSON";

$account_key = "<my key>";
$mech->credentials($url, '', '', $account_key);

$mech->get($url);

print $mech->content();

错误：＆＃34;不支持您提供的授权类型。仅支持Basic和OAuth＆＃34;。

如果我在浏览器中打开URL，则它是没有Realm的基本弹出式身份验证，用户名应为空，密码为帐户密钥。我能够查看JSON响应。

但是，当我尝试从Perl脚本连接时，由于身份验证问题，它无法正常工作。

我认为我在请求中传递凭据的语法是正确的。如果要进行修正以使其正常工作，请告诉我。