为什么我在使用“source”运行 TCL 脚本时会出错？

Question

我现在正在处理TCL 脚本。当我运行 tclsh script.tcl 时，脚本运行良好，但当我运行 source script.tcl 时，不再找到命令。

#!/usr/bin/env tclsh
proc test {} {
  set a 43
  set b 27
  set c [expr $a + $b]
  set d [expr [expr $a - $b]* $c]
  for {set k 0} {$k < 10} {incr k} {
    if {$k < 5} {
      puts "k<5, pow=[expr pow($d,$k)]"
    } else {
      puts "k>=5, mod=[expr $d % $k]"
    }
  }
}

...运行时会导致错误：

$ source myfirst.tcl

Command 'proc, not found, did you mean:

  command 'croc' from snap croc (6.4.10)
  command 'prof' from deb profphd
  command 'nproc' from deb coreutils
  command 'proj' from deb proj-bin

See 'snap info <snapname>' for additional versions.

bash: myfirst.tcl: line 7: syntax error near undexpected token `k'

Answer 1

source 不能用于运行不是以 您调用它的 shell 的本机语言编写的任何脚本。

也就是说，在 bash 中，source 只能用于运行 bash 脚本。它不能运行 TCL 脚本。这是本质上的：source 所做的是跳过运行额外的 shell 或其他解释器（因此，强制你的 #!/usr/bin/env tclsh shebang 被忽略），并在你的 shell 中运行代码已经进去了。

如果该 shell 无法本地解析您编写的脚本所用的语言，则可以预料到语法错误——以一种语言编写的内容正在由专门为支持另一种语言而设计的解释器进行解析。错误消息中的 bash: 前缀清楚地表明了实际情况。这是 bash，而不是 tclsh，试图解释脚本。

Answer 2

Tcl 代码由 Tcl 解释器运行（通常是 tclsh 或 wish，但许多应用程序也嵌入了 Tcl）。 Bash 代码由 bash 解释器运行。这两种语言只有极其表面的相似之处； source 命令就是其中之一，但 proc 是一个仅限 Tcl 的命令（bash 有 function 而不是那种东西）。

这意味着无论运行source 命令，还需要了解目标文件的写入内容。