带有请求标头的 Prolog http get 请求

Question

我尝试使用带有 prolog 的请求标头执行 http get 请求，但我不知道该怎么做。

这是一个如何在 Python 中实现的示例：

response = unirest.get("https://poker.p.mashape.com/index.php?players=3",
headers={
"X-Mashape-Key": "mykey",
"Accept": "application/json"
}

此请求的响应是 Json 格式，如下所示：

{
"player_cards": {
"1": [
  "Jh",
  "4c"
],
"2": [
  "3s",
  "Js"
],
"3": [
  "3d",
  "5c"
],
"4": [
  "Kh",
  "Qs"
]
},
"showdown": [
"Ks",
"6h",
"4s",
"Ac",
"9h"
],
"winning_hands": {
"1": [
  "4c",
  "4s",
  "Ac",
  "Ks",
  "Jh"
],
"2": [
  "Ac",
  "Ks",
  "Js",
  "9h",
  "6h"
],
"3": [
  "Ac",
  "Ks",
  "9h",
  "6h",
  "5c"
],
"4": [
  "Kh",
  "Ks",
  "Ac",
  "Qs",
  "9h"
]
},
"winners": [
4
]
}

我的序言代码

poker(Players) :-
format(atom(HREF),'https://poker.p.mashape.com/index.php?players=~s',[Players]),
http_get(HREF,Json,[]),

如何在此处指定http get请求标头以及如何存储和使用Json结果？该函数必须打印 Json 结果，我知道这可以通过 writeln() 来完成。

Answer 1

如果您想指定 HTTP 请求标头，我建议您使用 http_open/3 i.o. http_get/3。例如：

:- use_module(library(http/http_open)).
:- use_module(library(http/json)).

poker(Dict):-
  setup_call_cleanup(
    http_open('https://poker.p.mashape.com/index.php?players=3', In, [request_header('Accept'='application/json')]),
    json_read_dict(In, Dict),
    close(In)
  ).

注意我使用了setup_call_cleanup/3。这样可以确保即使中间的代码失败或抛出异常，流也会关闭。

json_read_dict/2 返回一个SWI7 dictionary。为此，您需要 SWI-Prolog 版本 7！最好是来自the development branch 的最新提交。

您使用的 URI 似乎需要 SSL 身份验证。我相信它也可以在 SWI-Prolog 中工作，但我找不到如何做到这一点的例子。请参阅my question to the SWI-Prolog mailinglist。