tcl脚本嵌入
set srcfile myres.res
set dstfile dtest.txt
if {[catch {open $srcfile r} res]} {
puts "Failed to open the source file: $srcfile; $res"
return 0
}
set hSrc $res
if {[catch {open $dstfile w+} res]} {
puts "Failed to open the destination file: $dstfile; $res"
return 0
}
set hDst $res
foreach line [split [read $hSrc] \n] {
if {[regexp {rdly=(.*)targ=(.*)trig=(.*)} $line match sub1]} {
puts $hDst "Rise Delay is $sub1"
}
if {[regexp {fdly=(.*)targ=(.*)trig=(.*)} $line match sub1]} {
puts $hDst "Fall Delay is $sub1"
}
}
close $hSrc
close $hDst
‘贰’ tcl脚本怎样嵌入c-shell脚本
假定你的 c shell 脚本名字是 a.sh，且具有可执行权限，则可以在 tcl 中用
exec /path/to/a.sh
来执行
‘叁’ 请教前辈一下，如何在TCL脚本中，嵌套调用perl
windows下的脚本
tcl 脚本位于d:/temp/000.tcl：set a 100
puts $a
perl 脚本： $a= system "d:/temp/000.tcl";
print $a;
‘肆’ 什么是tcl脚本，简单分析一下
Tcl(最早称为“工具命令语言”"Tool Command Language", 但是目前已经不是这个含义，不过我们仍然称呼它为TCL)是一种脚本语言。 由John Ousterhout创建。 TCL经常被用于 快速原型开发,脚本编程，GUI和测试等方面。
Tcl的特性包括:
* 任何东西都是一条命令，包括语法结构(for, if等)。
* 任何事物都可以重新定义和重载。
* 所有的数据类型都可以看作字符串。
* 语法规则相当简单
* 提供事件驱动给Socket和文件。基于时间或者用户定义的事件也可以。
* 动态的域定义。
* 很容易用C,C++,或者Java扩展。
*解释语言，代码能够动态的改变。
* 完全的Unicode支持。
* 平台无关。Win32,UNIX,Mac上都可以跑。
* 和Windows的GUI紧密集成;Tk
* 代码紧凑，易于维护。
TCL本身不提供面向对象的支持。但是语言本身很容易扩展到支持面向对象。许多C语言扩展都提供面向对象能力，包括XOTcl,Incr Tcl等。另外SNIT扩展本身就是用TCL写的。
使用最广泛的TCL扩展是TK。 TK提供了各种OS平台下的图形用户界面GUI。连强大的Python语言都不单独提供自己的GUI，而是提供接口适配到TK上。另一个流行的扩展包是Expect. Expect提供了通过终端自动执行命令的能力，例如(passwd,ftp,telnet等命令驱动的外壳).
‘伍’ tcl脚本怎样退出
tcl脚本按返回键退出，TCL（ Tool Command Language） 是一种解释执行的脚本语言（ Scripting Language） ,它提供了通用的编程能力：支持变量、过程和控制结构；同时TCL还拥有一个功能强大的固有的核心命令集。TCL经常被用于快速原型开发，脚本编程，GUI和测试等方面。
• 实际上包含了两个部分：一个语言和一个库。首先，Tcl是一种简单的脚本语言，主要使用于发布命令给一些互交程序如文本编辑器、调试器和shell。由于TCL的解释器是用C\C++语言的过程库实现的，因此在某种意义上我们又可以把TCL看作C库，这个库中有丰富的用于扩展TCL命令的C\C++过程和函数，所以，Tcl是一个库包，可以被嵌入应用程序，Tcl的库包含了一个分析器、用于执行内建命令的例程和可以使你扩充（定义新的过程）的库函数。每个应用程序都可以根据自己的需要对TCL语言进行扩展。
• 扩展后的TCL语言将可以继承TCL核心部分的所有功能，包括核心命令、控制结构、数据类型、对过程的支持等；TCL良好的可扩展性使得它能很好地适应产品测试的需要，目前已成为自动测试中事实上的标准。
一个TCL脚本可以包含一个或多个命令。命令之间必须用换行符或分号隔开，。