perl - 从 Windows Live ID 查询中检索 JSON 结果

Question

我无法从 Live ID API 调用中检索整个 JSON。

我正在使用 Windows Live ID 通过 OAuth2 流程，以便获得 个人资料信息(以及一些相关项目，例如电话号码和首选电子邮件)。 我正在使用 perl & Net::OAuth2。

其中的 OAuth2 部分似乎工作正常；我可以获得访问 token 。 我现在想做的是扭转局面并检索个人资料信息 此身份验证/授权过程的要点。

如果我只是将 URL 重新插入浏览器 https://apis.live.net/v5.0/me?access_token=EwA .... 我得到了我想要的，看起来像 JSON:

{
   "id": "dd62296f10db01bf", 
   "name": "Michael Helm", 
 ....

   "locale": "en_US", 
   "updated_time": "2012-05-03T01:02:59+0000"
}

当我使用一些 perl 模块构建 url 字符串时，使 请求，并检索( 使用 LWP::UserAgent； 使用 HTTP::Request::Common； )

作为客户端->请求的结果返回的是最后的样子 上面那个 JSON 的一部分，带有 updated_time 的部分，加上一些标点符号。

我错过了什么？我需要做什么才能得到整个对象？

此技术以前有效(但适用于几个 OAuth 1 提供商)。 我对 Microsoft 和 Windows Live ID 不是很熟悉，但是这个过程 到目前为止似乎很简单。

Answer 1

如上所述，JSON 模块可以读取并解析出全部内容，即使 Dumper 无法打印它。因此 OAuth 2 处理或 Windows Live API 没有问题。