如何在 TCL 中将 2 个列表合并为键值对？

Question

如何将两个列表组合为键值对？

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

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

我如何组合如下dict['1':One,'2':two,'3':three]

Answer 1

该foreach命令的一个很容易被忽视的特性是它可以遍历多个列表。因此，您的任务可以简单地完成如下：

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

结果：1 1 2 2 3 3