如何在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"
}