如何在 TCL 中合并 2 个列表作为键值对?

How to merge 2 list as a key value pair in TCL?

如何将两个列表组合成键值对?

两个列表中的元素个数相同。 我有两个列表如下。

set a "1 2 3"
set b "One two three"

如何像下面这样组合 dict['1':One,'2':two,'3':three]

foreach命令的一个容易被忽视的特性是它可以遍历多个列表。所以,你的任务可以像这样简单地完成:

foreach k $a v $b {dict set d $k $v}
puts $d

结果:1一2二3三