tcl脚本编程
‘壹’ 如何写tcl脚本谢谢
比如说设置一个变量，同时给其赋值：
set
var1
10
tcl脚本中的注释，如果在行首，使用#注释内容；
如果在行尾，使用;#注释内容
打印字符串在屏幕上，使用
puts
"要输出的内容"
还有对文件的操作，字符串的操作等，你最好下载一个tcl教程，如果有一些编程基础，看看差不多就行了，很简单的。
‘贰’ tcl脚本语言编写的socket客户端
下面是client.tcl
proc Socket_Client {host port timeout} {
global connected
after $timeout {set connected timeout}
set sock [socket -async $host $port]
fileevent $sock w {set connected ok}
vwait connected
fileevent $sock w {}
if {$connected == "timeout"} {
return -code error timeout
} else {
return $sock
}
}
Socket_Client "10.33.132.2" 2540 100
‘叁’ 各种脚本语言，比如shell和tcl、perl有啥区别呢
1、shell可以说是unix\linux原生的，用户通过它与系统内核进行交换。特点就是直接，主要用来管理和使用系统。
2、perl可以说是对shell的扩展，在编写的灵活性、跨平台性都有提高,特别是在文本处理上有独到的地方。另外，perl的用途广泛如：开发CGI，功能上远远不止维护系统这么简单。
3、tcl可以看做C库，十分方便被C\C++调用，另外，tcl容易被扩展或者缩减，十分方便被移植到特定的软件平台中，作为专业的脚本。我知道很多EDA工具内嵌tcl语言。
‘肆’ 有关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的脚本编辑器是什么
Active Tcl
官方发布的免费Tcl开发环境，包含许多有用的扩展包，支持windows、linux、mac等多种平台。我现在就用的是这个。
官方下载地址：http://www.activestate.com/activetcl
‘陆’ Tcl格式脚本用文本编辑器即可完成是吗那么写好的脚本，如何在tcl软件中调用呢
让我来告诉你答案!执行tcl脚本的方法是在tcl语言解释器重输入sourcexxx.tcl。xxx.tcl就是你写的tcl脚本
‘柒’ 什么是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等命令驱动的外壳).
‘捌’ 请如何在Java程序中调用tcl脚本
几个方案，如Jacl、Feather以及TclBlend。最后选择了TclBlend。原因是：Jacl虽然好处是用纯Java编写的，可不能支持完全的Tcl指令，比如：glob命令的选项都不能使用；Feather虽然号称支持Native Tcl的指令，可安装似乎没有那么方便，版本也没有最近的更新；TclBlend虽然也不是用纯Java程序编写（需要通过JNI去调用C++编写的动态链接库），可基本上还能看到在不停的维护，稍费周折也能让它工作起来。
在使用TclBlend的时候，需要注意的是：如果直接使用下载的二进制文件，一般都是基于Tcl8.4的。为了能让TclBlend在Java中正常工作，需要先用Dependency Walker检查一下tclblend.dll所依赖的所有文件是否存在。
比如一个实际的问题是，对于xp上安装IE7的使用者，很可能在执行的时候发现动态链接库dwmapi.dll找不到的现象, 此时需要去单独下载该动态链接库文件放在系统搜索路径中。
‘玖’ 什么是脚本语言、脚本语言有什么用比如perl，ruby和TCL，谁能具体讲下TCL是什么东西
脚本语言, 顾名思义就是一般程序写出来比较小. 是个小脚本, 可以完成特定的功能. 脚本语言可以处理文档, 可以生成报表, 可以生成其他脚本, 可以建立其他语言的工作环境, 可以做许多事情. 甚至可以完成底层语言能完成的所有事情. tcl也是一种语言. 与工具结合的更紧密, 很多工具可以直接识别tcl,而perl和ruby就可以用来批量生成tcl脚本. 所以它们可以相辅相成的协调工作.
‘拾’ 怎么配置TCL脚本语言开发环境
脚本语言有很多种，像是我们常见的Cmd命令也可以算是一种脚本，你说的脚本语言应该是Web应用程序的脚本。
这类的常见的有JavaScript、VBScript、Perl、PHP、Python、Ruby。
脚本语言的特点是语法简单，一般以文本形式保存，并且不需要编译成目标程序，在调用的时候直接解释。这可以当做是脚本语言的判断标准，比如说JavaScript，你只需要用记事本新建一个Html文件，在里面加上一段脚本就可以了，在浏览器打开Html文件时自然会调用JS脚本。
总之你能用记事本写出程序，不需要编译环境生成目标程序的基本上就是脚本语言。