variables - 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

获取$array1值为 2 的变量。

% 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