为什么 Tcl 在调用“set”时不在变量名前使用美元符号？

Question

我将在这里使用 Perl 进行比较：

$foo = 5;
print $foo;

将变量 $foo 设置为 5，然后打印变量的内容（请注意，$foo 始终被访问如$foo）。

在 Tcl 中：

set foo 5
puts $foo

与 Perl 的对应部分执行相同的操作。

为什么Tcl不使用“$”设置变量，而是需要“$”来访问变量？ 为什么程序也是如此（例如proc bar {spam Egg} {...}）？ 对我来说，Tcl 代码看起来像这样（伪代码）：（

"foo" = 5 # Setting a string?
puts $foo # "$foo" is not defined.

我的评论只反映了似乎正在发生的事情，而不是正在发生的事情）。

我想补充的另一点是这一点的明确性：

set foo foo

是的，我总是可以这样做 set foo "foo"，但是 set $foo foo 不是更一致吗？

据我所知，“foo”可以是变量也可以是字符串，具体取决于具体情况，如我的上一个示例所示（set foo foo = set var string） ，但我不明白这个语法（也许是因为我习惯了Python......）

Answer 1

我认为原始的 Tcl 只有 set 命令，因此获取变量“foo”内容的唯一方法是调用 set foo。但随着 Tcl 进入通用脚本语言领域（回想一下，Tcl 被设想为一种可嵌入语言，您可以在用 C 编写的复杂组件上使用一层薄薄的 Tcl，因此预计不会使用大量变量），认为 $varname 语法糖很有用，所以添加了它。

换句话说，Tcl 不像 Perl 那样使用“$”，其中“$”的意思是“将后面的任何内容解释为标量”，Tcl 中的“$”也不表示变量。相反，它只是“给我一个变量的值，该变量的名称由紧随其后的单词给出”的语法糖。

Answer 2

好吧，我决定对原始问题的最后一点进行评论，但评论超出了限制，因此即使它没有解决指定的问题，我也会将其作为答案发布。我希望它能澄清问题中似乎暗示的一些事情。

关于 set foo foo 一致性的注意事项：您正在以某种错误的方式接近 Tcl。 Tcl 与 Perl 或 Python 完全不同，因为它几乎没有语法（真的，就像 LISP）。 “set foo foo”不是用于设置变量的语法，因为它可以在另一种语言中使用，它是对当前在名称“set”下可用的命令的调用，并向其传递两个参数--” foo”和“foo”；它是在“set”命令名称下注册的任何内容，决定变量的名称是什么以及将其设置为什么值。同样，循环命令不是语法，而是命令。真的，值得在这里停下来，认为这

for {set i 0} {$i < 10} {incr i} {
  puts $i
}

不仅仅是一个异想天开的语言设计者的想法，用大括号代替或像 C 中那样的“正常”括号。相反，这里 Tcl 解析器解析出五个单词，将第一个单词作为命令的名称，查找它，然后传递其余的单词；它是 for 的实现，它解释那些 {set i 0}, {$i <; 0} 等并适当地执行它们。语法仅用于指定如何从字符输入流中解析出单词。由于一切都是使用命令实现的，因此您的命令的行为与内置命令没有什么不同；这允许您创建与 for 或 switch 一样强大的自定义命令（类似于 LISP 中的宏）。在另一种语言中，这相当于以任意方式扩展 sytnax 的能力。

当这个想法“咔嚓”一声时，Tcl将不再显得怪异。
正是这个属性使得 Tcl 如此容易扩展（和嵌入）：因为您从 C 端提供的命令的行为与所有内置命令完全相同。

Answer 3

将 $foo 视为变量 foo 的值，即最后设置的文本。现在，如果 foo 当前的值为 x，则 set $foo y 表示 set x y，这显然不是是什么意思。它实际上比其他语言更加一致，其中 foo 有时表示变量 foo 的值，有时表示变量 foo 本身。

Answer 4

我想，真正的答案（如果有的话）只能由原始语言设计者（John Ousterhout）给出。因此，其余的都可以进行猜测或（有根据的）猜测。 此处提供了有关 TCL 的一些历史记录，但快速阅读后发现没有直接答案那里。

为什么Tcl不使用“$”设置变量，而是需要“$”来访问变量
变量？

我的看法是，这种方式更接近 (UNIX) shell 语言。 TCL 是在 Berkeley 构思的，可以说是一个强大的 UNIX（或 BSD）环境。

UNIX shell 在声明或分配变量时也不使用 $ 符号（或相应 shell 的等效符号），但在引用它时需要它：

# bourn shell like shells (sh, bash, ksh, ...)
foo=foo
echo "The value of the variable foo is $foo."

即使是邪恶的 Windows CMD.EXE 处理器也使用类似的方法（尽管我猜这并不是 TCL 设计者的初衷；-)

REM DOS COMMAND.COM / Windows CMD.EXE
set foo=foo
echo The value of the variable is %foo%.

另外，如果字符串值中现在有空格，“字符串值”（尽管 shell 是出了名的弱类型）通常不需要引号。

是的，我总是可以 set foo "foo"，但不能设置 $foo foo more
一致吗？

好吧，这不是为 TCL 设计师/创作者准备的；-)

编辑 我差点忘了：您实际上可以在 TCL 中执行以下操作：

set foo bar
set $foo something
puts $bar

这实际上会输出“某些内容”。第二行实际上将字符串“something”设置为变量“foo”的值，从而设置一个名为“bar”的变量并为其分配值“something”。