tcl - 对 tclsh 使用内联命令

Question

tclsh 有内联命令之类的东西吗？

比如:tclsh -e "set a 7 ; puts $a"

当然我试过上面的方法，还是不行。但是你明白了吗？

谢谢，格特

Answer 1

使用 Expect，您可以实现这一目标。

expect -c 'set a 10; puts $a'

-c 标志提供了一种执行命令行指定命令的方法而不是在脚本中。请注意 -c 的整个参数都被 引用了单引号。这告诉 shell 不要执行任何变量扩展。

-c 标志也可用于在脚本控制之前执行命令。例如，您可以通过从 shell 调用 Expect 将变量 debug 设置为 1:

expect -c 'set debug 1' myscript.exp

在脚本中，您可以检查这个变量的值:

if [info exists debug] {
    puts "debugging mode: on"
else {
    set debug 0
}