如何访问ITCL类中的环境变量？

Question

我知道在一个普通的tcl脚本中，可以像这样访问环境变量：

global env
puts "User: $env(USER)"

set env(IOFILE) "somefile.txt"

但这似乎在ITCL类方法中不起作用。如何在ITCL类代码中获取和设置环境变量？

Answer 1

Itcl使用变量发现来做复杂的事情，但是您可以通过给出变量的完全限定名称( global命令将该名称在本地作用域中的最后一个组件绑定到已命名的变量)来覆盖这种复杂性。因此：

global ::env  ;# <<<<<< Note this <<<<<<

puts "User: $env(USER)"
set env(FOO) "bar"