在TCL中使用变量

Question

我正在尝试在TCL中的其他Proc中使用全局变量。

这是一个简短的例子：

proc myname {} {
    set ::name [gets stdin]
}

proc myname2 {} {
    puts "your name is: $name"
}

tcl_shell> proc myname

Jhon <--- "Jhon" should be stored in varible called *name*

tcl_shell> proc myname2

your name is Jhon <-- I want something like this.

但是我仍然看到此错误：错误：无法读取“名称”：没有这样的变量，

我也尝试过：

proc myname {} {
    global name
    set name [gets stdin]
}
    
proc myname2 {} {
    puts "your name is: $name"
}

Answer 1

您正在尝试读取myname2范围中的变量名称

proc myname2 {} {
  puts "your name is: $name"
}

：当然，myname2 < /代码>功能。您保存的变量在全局（::）范围中，因此您可以执行：

proc myname2 {} {
  global name
  puts "your name is: $name"
}

或

proc myname2 {} {
  puts "your name is: $::name"
}

与C/C ++ TCL不同，默认情况下会隐藏全局范围。您需要故意将变量从全局范围导入到您的功能中。