[ Tcl ] dict 和 JSON 相互转换

https://www.cnblogs.com/yeungchie/

Tcl 的资料是真难查，终于在 tcltk 的 github 找到了用法 tcltk/tcllib: tcllib (Mirror of core.tcl-lang.org).

json

package require jsonpackage require json::write

json::dict2json

set dict [dict create a 1 b 2 c 3]# a 1 b 2 c 3set jsonDict [json::dict2json $dict]# {"a": 1# ,"b": 2# ,"c": 3# }

json::json2dict

puts [json::json2dict $jsonDict]# a 1 b 2 c 3