有没有办法将params传递给使用eval源运行的TCL中的脚本?

Cor*_*nus 0 eval tcl

我有一个调用的脚本:

 eval source \{$scriptfile\}
Run Code Online (Sandbox Code Playgroud)

其中$ scriptfile是另一个TCL脚本.有没有办法将参数传递给脚本?我想做点什么:

set sampleData "ID=14678934"
eval source \{$scriptfile\} $sampleData 
Run Code Online (Sandbox Code Playgroud)

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

Tre*_*son 5

这是一个可怕的做法开始.调用你正在采购的脚本中的proc更清晰.

source script.tcl  ;# defines proc run_script_with_data
run_script_with_data $data
Run Code Online (Sandbox Code Playgroud)