Tcl 如何在某个键处追加到数组

我想知道如何附加到数组中特定键的内容。
假设我有一个tcl阵列

设置ARRY（情绪）“一切都是”

我想给它加上一个词（比如说，“太棒了”）。
到目前为止，我所做的是获取

$ARRY（mood）

（返回{everythis}）的值，将其转换为字符串，附加额外的单词并将其设置回ARRY（mood）。
我怎样才能不费吹灰之力直接添加这个词呢？
我改变数组的方式是正确的工作方式是毫无意义的

---

ARRY（mood）的预期内容：{everything is awesome}

数组中的每个元素都可以作为单独的变量处理，并且可以对变量执行的任何操作都适用于它

% set ARRY(mood) "everything is"
everything is
% set ARRY(mood) "$ARRY(mood) awesome"
everything is awesome
% parray ARRY
ARRY(mood) = everything is awesome
%

---

数组的每个元素都可以被视为一个单独的变量，可以对变量执行的任何操作都适用于它

% set ARRY(mood) "everything is"
everything is
% set ARRY(mood) "$ARRY(mood) awesome"
everything is awesome
% parray ARRY
ARRY(mood) = everything is awesome
%

---

append

命令用于此任务：

append ARRY(mood) " awesome"

如果它真的是一个列表，

lappend

也可以：

lappend ARRY(mood) "awesome"

---

但这只是一个列表。对字符串使用

append

，对列表使用

lappend

。

append

命令用于此任务：

append ARRY(mood) " awesome"

如果它真的是一个列表，

lappend

也可以：

lappend ARRY(mood) "awesome"

---

但这只是一个列表。对字符串使用

append

，对列表使用

lappend

。

您只需对数组元素使用

append

：

% set ARRY(mood) "everything is"
everything is
% append ARRY(mood) " awesome"
everything is awesome
% puts $ARRY(mood)   
everything is awesome
% 

---

您只需在数组元素上使用

append

：

% set ARRY(mood) "everything is"
everything is
% append ARRY(mood) " awesome"
everything is awesome
% puts $ARRY(mood)   
everything is awesome
% 

---

我知道我使用数组的方式没有意义。。。谢谢。我知道我使用阵列的方式没有意义。。。谢谢。回答得很好，甚至比我选择的正确答案更好，但选择已经完成。回答得很好，甚至比我选择的正确答案更好，但选择已经完成。