使用Tcllib JSON包实现TCL字典转指定格式JSON的方法咨询

核心说明 #

• Tcl为弱类型语言，Tcllib JSON包无法自动区分值的字符串/数字类型，需通过json::write模块的显式类型标记能力手动指定类型，无法直接一步转换字典。
• 常用类型标记命令：
  • json::write::string：生成带双引号的JSON字符串
  • json::write::number：生成无引号的JSON数字
  • json::write::object：生成JSON对象结构
  • json::write::indenter：将压缩JSON转为格式化缩进的易读格式

完整实现代码 #

首先导入依赖包并定义原始字典：

# 导入Tcllib JSON依赖
package require json
package require json::write

# 定义原始国家字典
set countryDict [dict create USA {population 300 capital DC} Canada {population 30 capital Ottawa}]

执行转换逻辑：

# 初始化外层JSON对象的键值对列表
set jsonObjPairs [list]

# 遍历外层国家字典
dict for {country innerDict} $countryDict {
    # 初始化内层国家属性的键值对列表
    set innerPairs [list]
    # 遍历内层属性，按业务规则标记值类型
    dict for {key value} $innerDict {
        if {$key eq "population"} {
            # 人口标记为数字类型
            lappend innerPairs $key [json::write::number $value]
        } elseif {$key eq "capital"} {
            # 首都标记为字符串类型
            lappend innerPairs $key [json::write::string $value]
        }
    }
    # 内层属性拼成JSON对象，作为外层国家的对应值
    lappend jsonObjPairs $country [json::write::object {*}$innerPairs]
}

# 生成格式化后的最终JSON
set finalJson [json::indenter [json::write::object {*}$jsonObjPairs]]
puts $finalJson

输出效果 #

{
  "USA": {
    "population": 300,
    "capital": "DC"
  },
  "Canada": {
    "population": 30,
    "capital": "Ottawa"
  }
}

注意：你给出的目标JSON中captial为拼写错误，若需要匹配该拼写，只需在内层键值对构造时，将capital替换为captial即可。

扩展说明 #

如果后续需要支持布尔值、数组等JSON类型，可直接替换对应标记命令：

• 布尔值：json::write::boolean $value（输入为1/0或true/false）
• 数组：json::write::array {*}$values

内容的提问来源于stack exchange，提问作者Suresh