json - Racket 中的 REST API JSON 解析

Question

我出于教育目的在 Racket 中开发休息服务并面临 JSON 解析问题。我有以下正文的 POST 请求

"{\"word\": \"a\", \"desc\": \"b\"}"

我也有这个请求的请求处理程序，例如

 (define (add-word-req req)
     (define post-data (request-post-data/raw req))
     (display post-data)
     (newline)

     (define post-data-expr1 (bytes->jsexpr post-data))
     (display post-data-expr1)
     (newline)
     (display (jsexpr? post-data-expr1))
     (display (hash? post-data-expr1))
     (newline)

     (define post-data-expr (string->jsexpr "{\"word\": \"a\", \"desc\": \"b\"}"))
     (display post-data-expr)
     (newline)

     (display (hash? post-data-expr))
     (newline)

     (for (((key val) (in-hash post-data-expr)))
       (printf "~a = ~a~%" key val))

     (cond 
       [(jsexpr? post-data-expr)
       ;; some conditional work
       ...
      ]
       [else 
       ...]
      )
     )

如您所见，请求正文和硬编码 JSON 是相同的。

在处理请求时我得到下一个输出:

 "{\"word\": \"a\", \"desc\": \"b\"}"
 {"word": "a", "desc": "b"}
 #t#f
 #hasheq((desc . b) (word . a))
 #t
 desc = b
 word = a

Body是一 block 传输的，甚至转成了jsexpr，但还是不是hash!因此，我不能对 post-data-expr1 使用哈希方法。

从这样的 jsexpr 中获取哈希值的最佳方法是什么？或者我应该使用另一种方法来获取键/值？

问候。

Answer 1

这个程序:

#lang racket
(require json)
(string->jsexpr "{\"word\": \"a\", \"desc\": \"b\"}")
(bytes->jsexpr #"{\"word\": \"a\", \"desc\": \"b\"}")

有输出:

'#hasheq((desc . "b") (word . "a"))
'#hasheq((desc . "b") (word . "a"))

这意味着 bytes->jsexpr 应该可以工作。

你能改变吗:

 (define post-data (request-post-data/raw req))
 (display post-data)
 (newline)

到

 (define post-data (request-post-data/raw req))
 (write post-data)
 (newline)

?

我感觉这个字节串的内容和你后面用的略有不同。

注意:

> (displayln "{\\\"word\\\": \\\"a\\\", \\\"desc\\\": \\\"b\\\"}")
{\"word\": \"a\", \"desc\": \"b\"}

> (displayln "{\"word\": \"a\", \"desc\": \"b\"}")
{"word": "a", "desc": "b"}

(display post-data-expr1) 的输出与上面的第一个交互匹配。因此，我的猜测是反斜杠和引号在您的输入中都被转义了。