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