如何使用两个不同的变量在TCL中形成一个新变量？

Question

我在TCL中有以下代码：

set number1 1
set number2 2
set number3 3
set array1 2
set array2 3
set array3 4

那么我如何使用变量number1形成变量array1，例如：

$array$number1

我想要的是使用$number1和$array的值来形成变量$array1

Answer 1

您可以使用以下语法：

set number1 1
set array$number1 2

获取值为{2}的变量$array1。

% puts $array1
2

如果你想用变量检索变量的值，你可以这样做：

% puts [set array$number1]
2

Answer 2

你可以这样做，如@Jerry

所示

应该做的是使用数组：

set indexes {1 2 3 4}
array set array {}
foreach idx $indexes {
    set array($idx) [expr {$idx + 1}]
}
parray array

array(1) = 2
array(2) = 3
array(3) = 4
array(4) = 5