如何将字符串化的 JSON 从无缩进和转义反斜杠转换为精美缩进且无转义字符的 JSON？

Question

我正在使用 Common Lisp、SBCL 和一个名为 Dexador 的著名库。以下 s-exp:

CL-USER> (dex:post "https://html2json.com/api/v1"
          :content (dex:get "https://ambrevar.xyz"))

返回：

"{\"error\":false,\"code\":null,\"message\":null,\"data\":{\"head\":{\"title\":\"\\u200e\",\"meta\":[{\"charset\":\"utf-8\"},{\"name\":\"viewport\",\"content\":\"width=device-width, initial-scale=1\"},{\"name\":\"generator\",\"content\":\"Org mode\"},{\"name\":\"author\",\"content\":\"root\"}],\"link\":[{\"rel\":\"stylesheet\",\"type\":\"text\\/css\",\"href\":\"..\\/dark.css\"},{\"rel\":\"icon\",\"type\":\"image\\/x-icon\",\"href\":\"..\\/logo.png\"}],\"script\":[]},\"headers\":[{\"tagName\":\"h2\",\"textContent\":\"Contact\",\"attributes\":{\"id\":\"org4051da4\"}}],\"jsonLd\":[],\"iframes\":[],\"embeds\":[],\"imgs\":[],\"links\":[{\"text\":\"[email protected]\",\"href\":\"mailto:[email protected]\",\"attr\":{\"href\":\"mailto:[email protected]\"}},{\"text\":\"0x9BDCF497A4BBCC7F\",\"href\":\"ambrevar.asc\",\"attr\":{\"href\":\"ambrevar.asc\"}}],\"forms\":[],\"tables\":[],\"content\":\"Contact\\nEmail: [email protected]\\nPGP: 0x9BDCF497A4BBCC7F\"}}"
200
#<HASH-TABLE :TEST EQUAL :COUNT 17 {10039E4303}>
#<QURI.URI.HTTP:URI-HTTPS https://html2json.com/api/v1>
#<CL+SSL::SSL-STREAM for #<FD-STREAM for "socket 172.20.10.5:34050, peer: 185.94.230.235:443" {10038A5B13}>>

第一个结果（双字节字符串化 JSON）接近我想要的结果。

由于 JSON 输出将打印给最终用户，因此我需要 (i) 删除反斜杠 (\) 和 (ii) 缩进 JSON。

然而，反斜杠的存在是由于它们在引号上具有转义性质（以避免字符串过早结束），我不确定如何处理它们。我也不知道如何漂亮地打印它。

我怎样才能达到预期的结果？有没有一个库可以解决这个特定问题？如果是这样，怎么办？

谢谢

Answer 1

有！但它不能快速加载。你必须从github下载它。
然而，最方便的设置方法是使用 roswell（它可以安装 github 存储库维护的 Common Lisp 包以及可快速加载的包）。

我曾经写过一篇关于为 Common Lisp 开发环境设置 Roswell 的文章 - 请参阅：https://towardsdatascience.com/how-to-set-up-common-lisp-ide-in-2021-5be70d88975b
。

如果您随后安装了 Roswell，则设置过程非常简单：

$ ros install muyinliu/jsown-utils # installs from github directly
$ ros install dexador              # installs from quicklisp repo

您就可以开始了！

(ql:quickload 'jsown-utils)
(ql:quickload 'dexador)

;; https://github.com/muyinliu/jsown-utils

(jsown:pprint-json
 (dex:post "https://html2json.com/api/v1"
           :content (dex:get "https://ambrevar.xyz")))

jsown:pprint-json 正是您正在搜索的函数！

上面的代码输出：

{
    "error": [],
    "code": [],
    "message": [],
    "data": {
        "head": {
            "title": "‎",
            "meta": [
                {
                    "charset": "utf-8"
                },
                {
                    "name": "viewport",
                    "content": "width=device-width, initial-scale=1"
                },
                {
                    "name": "generator",
                    "content": "Org mode"
                },
                {
                    "name": "author",
                    "content": "root"
                }
            ],
            "link": [
                {
                    "rel": "stylesheet",
                    "type": "text/css",
                    "href": "../dark.css"
                },
                {
                    "rel": "icon",
                    "type": "image/x-icon",
                    "href": "../logo.png"
                }
            ],
            "script": []
        },
        "headers": [
            {
                "tagName": "h2",
                "textContent": "Contact",
                "attributes": {
                    "id": "org4051da4"
                }
            }
        ],
        "jsonLd": [],
        "iframes": [],
        "embeds": [],
        "imgs": [],
        "links": [
            {
                "text": "[email protected]",
                "href": "mailto:[email protected]",
                "attr": {
                    "href": "mailto:[email protected]"
                }
            },
            {
                "text": "0x9BDCF497A4BBCC7F",
                "href": "ambrevar.asc",
                "attr": {
                    "href": "ambrevar.asc"
                }
            }
        ],
        "forms": [],
        "tables": [],
        "content": "Contact
Email: [email protected]
PGP: 0x9BDCF497A4BBCC7F"
    }
}

如果没有 Roswell，您必须遵循 jsown-util 的 github 自述文件说明：

# In shell I would do:

cd ~/quicklisp/local-projects # enter your quicklisp/local-projects
# and then git clone it:
git clone https://github.com/muyinliu/jsown-utils.git


# Then in Common Lisp to install the package using quicklisp:

(ql:quickload 'jsown-utils)

基本上，这意味着进入您的 quicklisp 的 local-projects 文件夹并 git clone那里有 jsown-utils 的 github 存储库。
因为，它对于 ql:quickload 是可见的，它总是先检查其 local-projects 文件夹，然后再在官方的 Quicklisp 存储库中搜索在线包。