我正在尝试在 Common Lisp 中导入 JSON。我想出了如何从 JSON 字符串解码对象，但我不知道如何访问返回的对象的属性。要解码字符串（并将结果存储在 ***tempjson** 中），我这样做：
(defun test-json ()
(with-input-from-string
(s "{\"foo\": [1, 2, 3], \"bar\": true, \"baz\": \"!\"}")
(defparameter *tempjson* (json:decode-json s))))
我怎样才能访问*临时json*数据。例如，我怎样才能获得foo财产？
decode-json似乎返回一个关联列表（至少在这种情况下；参见文档 https://common-lisp.net/project/cl-json/）。您可以使用该函数访问这些值assoc http://www.lispworks.com/documentation/HyperSpec/Body/f_assocc.htm:
(defun test-json ()
(with-input-from-string (s "{\"foo\": [1, 2, 3], \"bar\": true, \"baz\": \"!\"}")
(let ((data (json:decode-json s)))
(format t "~a~%" (rest (assoc :foo data))))))
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
