TCL：如何将tcl数据转换为json格式？

Question

有关tcl数组的示例：

set arr {"key" {1 2 3}}

转换为json格式

{"key" : [1,2,3]}

我正在寻找上述示例的解决方案，而不使用任何库。

Answer 1

正如评论中提到的那样，由于列表和带空格的字符串等语言中的歧义，或者数字是Tcl中的字符串，因此这可能很难做到，而且很难自行完成。但是，至少存在两个很棒的库来处理此问题，并使过程更具可读性：

• 一个选项是rl_json，它为JSON定义了一种新的对象类型，并通过直观的子命令添加了json命令。
• 另一个选项是yajl-tcl，它是C yajl库的接口。 yajl-tcl的工作方式更像逐行构建JSON，虽然可能不如rl_json直观，但效果仍然不错。