附加到tcl中的数组

Question

我正在传递数组，键和值的名称。如果数组存在但是数组中没有定义键，我试图将键值对附加到数组中。

如何将一对附加到tcl中的数组？

Answer 1

要将键/值对添加到Tcl数组，只需执行：

set theArray($theKey) $theValue

你也可以使用：

append theArray($theKey) $theValue

如果它们不存在，它们将创建键/值对，如果它们存在，则附加到数组中的值。

如果您将各种事物作为参数传递，则过程可能如下所示：

proc appendValueToArray {arrayName keyName valueToAppend} {
    upvar 1 $arrayName theArray
    append theArray($keyName) $valueToAppend
}