如何在聲明tcl列表時使用變量的值

Question

可以在tcl列表聲明中使用變量嗎？ 我有以下簡單的例子：

set grape_color "green" 

set produce_list {\ 
    { PRODUCE COLOR    REGION }\ 
    { APPLE "red"    TX }\ 
    { GRAPE $grape_color  CA }\ 
} 

puts $produce_list 

代碼的輸出是這樣的：

{ PRODUCE COLOR    REGION } 
{ APPLE "red"    TX } 
{ GRAPE $grape_color  CA } 

，但我想要的「綠色」，而不是在列表中$grape_color。

Answer 1

您可以使用的一種方法是使用list命令。

set grape_color green 
set produce_list [list \ 
    [list PRODUCE COLOR  REGION] \ 
    [list APPLE red   TX] \ 
    [list GRAPE $grape_color CA]] 

另一種方法是通過使用subst命令。

set grape_color green 
set produce_list { 
    { PRODUCE COLOR  REGION } 
    { APPLE red   TX } 
    { GRAPE $grape_color CA } 
} 
set produce_list [subst -nobackslashes -nocommands $produce_list]