` `为了使得tcl脚本更有层次，我们有时候会在一个tcl脚本文件调用另一个tcl脚本文件，实现这样的功能我们可以讲待调用的脚本文件中的内容全部读出后使用eval执行。 如下： ``` #!/usr/bin/tclsh #一个tcl脚本文件调用另一个tcl脚本文件 puts "" puts "××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××" puts "运行一个tcl脚本文件调用另一个tcl脚本文件，对应脚本为 example/eval.tcl" puts "××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××" puts "下面将会调用 dis_hello.tcl输出hello，TCL！" set f [open dis_hello.tcl r] set cmd [read $f] eval $cmd ;#执行调用的文件 close $f puts "调用操作成功" puts "" ``` ``` #!/usr/bin/tclsh puts "Hello,TCL!" ```