TCL自学笔记-12 eval命令

eval命令

   接收一个或多个参数，然后把所有的参数以空格隔开组合到一起成为一个脚本，然后对这个脚本进行求值。

proc test1 {var} \

{

if {$var == 1} {

   puts "var is one"

} else {

puts "var is not one"

}

}

以上也等效于：

proc test1 {var} {

if {$var == 1} {

   puts "var is one"

} else {

puts "var is not one"

}

}

运行完以上程序后再运行以下代码：

eval test1 1

或等效于：

test1 1

(Documents) 465 % eval [set foo "puts hi"]

hi