将变量的值分配给TCL中的另一个变量

Question

我的剧本中有这个片段：

set line [gets stdin]

set $line1 $line

是不是错了？ 我基本上想要将变量line的值复制到line1。它给了我错误：

can't read "line1": no such variable
while executing
"set $line1 $line"

Answer 1

在tcl中，将$前置到变量中会将该变量替换为其值。因此，正确的语法是：

set line1 $line

这几乎与C中的*语义相同：将*添加到C中的指针，将其解除引用其值。