tcl - 如何通过传递参数来获取脚本文件？

Question

假设我有一个 tcl 脚本，我想将一些参数传递给第一个 tcl 中的第二个脚本文件:

#first tcl file

source second.tcl

我想从 first.tcl 控制 second.tcl 的流程，我读到 tcl 源不接受参数。我想知道我该怎么做。

Answer 1

source不接受任何额外的参数。但是您可以使用(全局)变量来传递参数，例如:

# first tcl file
set ::some_variable some_value
source second.tcl

第二个 TCL 文件可以引用变量，例如:

# second tcl file
puts $::some_variable

评论:
获取文件意味着源脚本的内容在当前上下文中执行。这意味着源脚本可以访问该上下文中存在的所有变量。上面的代码是一样的:

# one joint tcl file
set ::some_variable some_value
puts $::some_variable