json - 如何在Racket中解析JSON？

Question

我似乎无法弄清楚{documentation}，实际上没有任何示例可以解析一些简单的JSON数据，因此我想知道这里是否有人可以给我一些示例来开始使用。

Answer 1

这是一个非常简单的示例:

(require json)
(define x (string->jsexpr "{\"foo\": \"bar\", \"bar\": \"baz\"}"))
(for (((key val) (in-hash x)))
  (printf "~a = ~a~%" key val))

将其与基于JSON的API结合使用的方法如下:

(require net/http-client json)
(define-values (status header response)
  (http-sendrecv "httpbin.org" "/ip" #:ssl? 'tls))
(define data (read-json response))
(printf "My IP address is ~a~%" (hash-ref data 'origin))

应OP的要求，以下是如何从结构类型创建JSON值的方法:

(require json)
(struct person (first-name last-name age country))
(define (person->jsexpr p)
  (hasheq 'first-name (person-first-name p)
          'last-name (person-last-name p)
          'age (person-age p)
          'country (person-country p)))
(define cky (person "Chris" "Jester-Young" 33 "New Zealand"))
(jsexpr->string (person->jsexpr cky))