如何在 Tcl 中打印数组的内容

Question

我想在 Tcl 中打印一个数组的内容（用于调试）。顺序不重要，我只想打印每个值。

我该怎么做？

Answer 1

最简单的方法是使用parray:

% array set val [list a 1 b 2 c 3]
% parray val
val(a) = 1
val(b) = 2
val(c) = 3

如果你只想要键和值，那么，使用循环和array get：

foreach {key value} [array get val] {
    puts "$key => $value"
}