如何从TCL向Python传递变量并将输出返回至原TCL脚本

针对你现在使用eval方式存在的灵活性差、不支持复杂数据的问题，有两种成熟的落地方式可选：

方案1：无额外依赖，结构化输出解析（推荐初学者使用） #

不需要安装任何扩展，仅通过约定输出格式就可以实现任意类型、任意数量的返回值传递，完全替代eval逻辑，避免代码注入风险。

核心逻辑 #

Python侧将需要返回的不同类型数据，按TCL原生支持的列表格式输出，不同数据集之间用不会出现在业务内容里的分隔符（比如---、@@@等）分割，TCL侧拿到输出后直接拆分即可作为原生变量使用，无需执行任何动态代码。

Python脚本示例 #

import sys
from shlex import quote

def process_data(num1, num2):
    # 示例返回两类结果：浮点数值列表、字符串列表
    float_res = [0.618, 3.1415926, float(num1) + float(num2)]
    str_res = ["测试字符串", "包含空格的字符串", f"参数求和结果：{float(num1)+float(num2)}"]
    # 格式化为TCL兼容的列表字符串
    float_line = " ".join([str(x) for x in float_res])
    str_line = " ".join([quote(x) for x in str_res])
    # 用自定义分隔符拼接返回
    return f"{float_line}---{str_line}"

if __name__ == "__main__":
    print(process_data(sys.argv[1], sys.argv[2]), end="")

TCL脚本示例 #

set num1 10
set num2 20

set output [exec python "python.py" $num1 $num2]
# 拆分不同类型的返回结果
set res_parts [split $output "---"]
set float_list [lindex $res_parts 0]
set str_list [lindex $res_parts 1]

# 直接使用返回值
puts "浮点列表第二个元素：[lindex $float_list 1]"
puts "字符串列表第三个元素：[lindex $str_list 2]"

你需要返回更多独立变量/列表时，只需要增加自定义分隔符即可，支持任意长度的列表、带特殊字符的字符串、浮点/整数类型数据。

方案2：使用tclpython扩展，原生跨语言调用（适合复杂场景） #

如果你的环境允许安装TCL扩展，tclpython可以实现TCL和Python的无缝交互，不需要走进程通信，参数和返回值类型自动适配，无需手动处理序列化逻辑。

示例代码 #

package require python

# 直接在TCL中定义Python函数
python::eval {
def process_data(num1, num2):
    float_res = [0.618, 3.1415926, float(num1) + float(num2)]
    str_res = ["测试字符串", "包含空格的字符串", f"参数求和结果：{float(num1)+float(num2)}"]
    return [float_res, str_res]
}

set num1 10
set num2 20
# 直接调用Python函数，自动拿到TCL原生嵌套列表
set res [python::call process_data $num1 $num2]
set float_list [lindex $res 0]
set str_list [lindex $res 1]

puts [lindex $float_list 2]
puts [lindex $str_list 1]

额外说明 #

你提到的tkinter是Python的GUI开发库，和跨语言参数传递的场景无关，无需使用。

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