Làm cách nào để phân tích cú pháp JSON trong Racket?

Question

Tôi không thể tìm ra {documentation}, thực sự không có bất kỳ ví dụ nào về phân tích cú pháp một số dữ liệu JSON đơn giản, vì vậy tôi tự hỏi liệu có ai ở đây có thể cho tôi một số ví dụ để bắt đầu hay không.

Answer 1

Dưới đây là một ví dụ rất đơn giản:

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

Đây là cách bạn có thể sử dụng nó với một API JSON-based:

(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)) 

Theo yêu cầu của OP, dưới đây là cách bạn có thể tạo một giá trị JSON từ loại cấu trúc:

(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))