如何使用兩個不同的變量在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