使用eval为脚本提供参数

Question

我真的不懂如何使用eval参数。 如果我想要评估的脚本是：

set myscript { puts $::argv }

然后我想这样调用我的脚本：

eval $myscript anArgument

我希望输出为＆＃34; anArgument＆＃34;，而是我有：

can not find channel named ""
while evaluating {eval $script vvv}

Answer 1

当您调用eval时，该命令会连接其所有参数并尝试评估结果列表（或者如果您愿意，则为字符串，这与此相同）。因此，首先将参数{ puts $::argv }和anArgument连接到列表{puts $::argv anArgument}中，然后解释器尝试对其进行评估。如果全局变量argv的值是空列表，则调用的实际命令将等同于puts {} anArgument。 puts将尝试使用{}作为频道标识符输出，失败并留下错误消息。

现在，如果您想要做的是将anArgument传递给myscript，然后将eval传递给puts anArgument，那么您应该写一下

set myscript {puts $myarg}
set myarg anArgument
eval $myscript

在第一行中，由于引号括号将$myarg转换为常规文本字符，因此$的评估被推迟。然后将变量myarg设置为一个值（这可以在代码中的任何位置发生，只要它在eval之前）。在第三行中，将对脚本进行求值，然后将参数$myarg替换为值anArgument，然后将其打印出来。

您尝试的那种调用是可能的，但是您需要使用apply而不是eval，以及闭包（匿名函数）而不是脚本。

set myfunc {myarg {puts $myarg}}
apply $myfunc anArgument

全局变量argv 不将参数传递给传递给eval的脚本：当tclsh或wish启动时在操作系统中，给出的任何命令行参数都放在argv中，并且在执行期间永远不会更改该值，除非您自己更改它（不要这样做，这只是令人困惑）。

文档：apply，eval，puts，set

argv记录在案here。