我想在我的数据库中插入大量 JSON 数据。
[{
"term": "wine",
"name": "Bubba Wine & Spirits",
"address": "1234 N San Fake Rd,"
}, {
"term": "wine",
"name": "Wine Shop",
"address": "123 N Not Real Blvd,"
}]
我cl-json
用来转换为 lisp 对象。
(defvar *data*
(decode-json (open "my-json-file.json")))
结果如下所示:
(((:TERM . "wine") (:NAME . "Bubba Wine & Spirits")
(:ADDRESS . "1234 N San Fake Rd,"))
((:TERM . "wine") (:NAME . "Wine Shop")
(:ADDRESS . "123 N Not Real Blvd,")))
Postmodern
列出了一种在insert-rows-into
此处插入多行的方法:https ://sites.google.com/site/sabraonthehill/postmodern-examples/postmodern-insert#multiple-row-inserts
(:insert-rows-into 'table :columns 'a 'b :values '((10 20) (30 40)))
它不是默认的 JSON 格式。
看起来我有两个选择:
- 按摩数据以适应
- 找到一个按原样处理的函数。
我怀疑:insert-rows-into
做了我想要的,但我不太确定如何把它塞进去。