tcl - 如何从 TCL 输出 JSON

Question

从 TCL 生成 JSON 输出的最佳方法是什么？您会推荐使用哪些数据结构来创建 TCL 数据，您会使用哪些 JSON 库(请尽可能保持标准)？

{
    "return_block": {
        "error_text": "0",
        "party_response_list": {
            "party_561": {"num": 228},
            "party_5037": {"num": 98}
        },
        "app_response_list": {
            "app_8141": {"num": 228},
            "app_9009": {"num": 98}
        }            
    }
}

Answer 1

目前最推荐的 Tcl JSON 库是 rl_json ，它有据可查，快速且功能强大。它旨在能够扩展到非常的大型文档。

package require rl_json

# Simple write the value into a Tcl variable
set errTxt "0"

# Build a composite JSON value; perfect for iteration out of a DB…
set parties {}
json set parties "party_561" "num" 228
json set parties "party_5037" "num" 98

# Another example, this time with actual iteration…
set apps {}
foreach {id num} {app_8141 228 app_9009 98} {
    json set apps $id "num" $num
}

# Build the overall doc and print it; note the interpolations of strings and JSON sub-documents
puts [json template {
    {"return_block": {
        "error_text": "~S:errTxt",
        "party_response_list": "~J:parties",
        "app_response_list": "~J:apps"
    }}
}]

请注意，您需要明确说明您在关键位置所做的事情；图书馆不会尝试猜测事物的类型。 (此外，您可以只使用大量的 json set 调用，但这很麻烦。)