有没有办法将参数传递给 TCL 中使用 eval 源运行的脚本？

Question

我有一个脚本调用：

 eval source \{$scriptfile\}

其中 $scriptfile 是另一个 TCL 脚本。有没有办法向脚本传递参数？我想做类似的事情：

set sampleData "ID=14678934"
eval source \{$scriptfile\} $sampleData 

我知道这是不允许的，但是有没有办法将数据传递到使用 eval 源执行的脚本？

Answer 1

这是一个可怕的开始。调用您正在采购的脚本内的过程要干净得多。

source script.tcl  ;# defines proc run_script_with_data
run_script_with_data $data

Answer 2

解决方案在 Tclers Wiki 中的以下文章中给出：带有参数的源 和 SrcFile.

我最喜欢的解决方案是srcfile：

proc srcfile { filename args } {
  global argv

  set argv $args
  source $filename
}

这种方法的唯一缺点是它会修改argv，所以你必须确保在其余部分不需要它脚本，或备份并恢复它。