$：中的Tcl变量替换

Question

如果我定义以下列表：

set ::listofvariablesn [list {"inputfile" "Input file"}]
set ::inputfile "Somefile or numbers"

我可以使用以下命令检查变量:: inputfile是否存在：

foreach a $::listofvariablesn {
   if {[info exists ::[lindex $a 0]]} {
      puts "Ok" 
   }
}

但是我无法使用以下方式访问:: inputfile的值：

foreach a $::listofvariablesn {   
    if {[checkvl "Input file" $::[lindex $a 0] 1 0 0 0]} { 
        puts "Ok" 
    }
}

我收到错误：无法读取“ ::”：没有这样的变量

有没有办法完成这种替换？ 我的意思是将$ :: [lindex $ a 0]转换为$ :: inputfile，以便我可以访问:: inputfile的值

非常感谢

Answer 1

$是快捷方式，不能进行双替换。 使用set命令：

if {[checkvl "Input file" [set ::[lindex $a 0]] 1 0 0 0]} { 

Answer 2

除了$的单字形式（ set命令的单参数形式）之外，还可以使用upvar 0创建变量（具有已知名称）的upvar 0 。 例如：

upvar 0 $a b
puts "exists: [info exists b]" 
puts "value: $b" 

您对变量b所做的任何操作（更改upvar除外）都将在$a命名的变量上执行。