我似乎无法弄清楚{
documentation},实际上没有任何解析一些简单JSON数据的例子,所以我想知道这里是否有人可以给我一些例子来开始.
解决方法
这是一个非常简单的例子:
(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))
原文地址:https://www.jb51.cc/js/156126.html
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。