Tcl/Tk【Tcl/Tk】Tcl 是“工具控制语言（Tool Command Language）”的缩写，其面向对象为otcl语言 。Tk 是 Tcl“图形工具箱”的扩展，它提供各种标準的 GUI 接口项，以利于迅速进行高级应用程式开发 。
基本介绍中文名：工具控制语言
外文名：Tcl/Tk
属性：计算机语言
时间：2011
起源Tcl 是“工具控制语言（Tool Command Language）”的缩写 。Tk 是 Tcl“图形工具箱”的扩展，它提供各种标準的 GUI 接口项，以利于迅速进行高级应用程式开发 。John K. Ousterhout于 1988 年开始开发 Tcl/Tk（读作“tickle tee-kay”），当时其是加州大学伯克利分校（UCB）的教授 。Tcl 是以可扩展性、短的学习曲线和易于嵌入为特定目标而设计的 。Tk 的开发始于 1989 年，第一个版本于 1991 年问世 。Ousterhout 博士在他离开 UCB 之后继续开发 Tcl/Tk，然后由于工作需要，他去了Sun Microsystems 公司工作 。现在，也就是在写本文之时，他在 Scriptics（它开发出 Ajuba Solutions，已由 Interwoven 收购）继续改进该语言，目前的稳定版本是 8.5.13，在写本文的时候，8.6b3 版本正在开发之中 。工具和档案在 Linux 系统上研究 Tcl/Tk，需要有两个主要程式 。它们是 tclsh 和 wish 。正如可以从其名称所辨别的那样，所以前者是 Tcl 外壳，常用于为外壳脚本提供执行环境 。Wish 类似于 tclsh，它是针对视窗化的 GUI 环境 。输入下列命令，检查这些档案是否存在：~/tcltk$ which tclsh/usr/bin/tclsh~/tcltk$ which wish/usr/bin/wishTcl编程范型多泛型，面向对象，函式式， 过程式, 事件驱动, 命令式设计者John Ousterhout实作者John Ousterhout, Tcl Core Team最新发行时间8.5.11[1] (2011年11月4日；7个月前(2011-11-04))型态系统动态类型, everything can be treated as a string主要实作产品ActiveTcl启发语言AWK, Lisp影响语言PowerShell,Tea网站见扩展阅读Tcl（最早称为“工具命令语言”"Tool Command Language"，但是目前已经不是这个含义，不过我们仍然称呼它为TCL）是一种脚本语言 。由John Ousterhout创建 。TCL很好学，功能很强大 。TCL经常被用于快速原型开发，脚本编程，GUI和测试等方面 。TCL念作“踢叩”（tickle） 。Tcl的特性包括：任何东西都是一条命令，包括语法结构（for,if等） 。任何事物都可以重新定义和重载 。所有的数据类型都可以看作字元串 。语法规则相当简单 。提供事件驱动给Socket和档案 。基于时间或者用户定义的事件也可以 。动态的域定义 。很容易用C, C++，或者Java扩展 。解释语言，代码能够动态的改变 。完全的Unicode支持 。平台无关 。Win32，UNIX，Mac上都可以跑 。和GUI紧密集成 。Tk代码紧凑，易于维护 。TCL本身在8.6以后提供面向对象的支持 。因为语言本身很容易扩展到支持面向对象，所以在8.6之前存在许多C语言扩展提供面向对象能力，包括XOTcl, Incr Tcl等 。另外SNIT扩展本身就是用TCL写的 。使用最广泛的TCL扩展是TK 。TK提供了各种OS平台下的图形用户界面GUI 。Perl、Python等语言都提供接口适配到TK上 。另一个流行的扩展包是Expect. Expect提供了通过终端自动执行命令的能力，例如（passwd, ftp, telnet等命令驱动的外壳）.扩充套件Tcl支援扩充套件，这些扩充套件提供了额外的功能（像是GUI，自动化，资料库存取等） 。下面是一些Tcl扩充套件的列表：tclodbcmk4tclsqlitePgtcl, pgintclmysqltcl, msqltclAdabasTclFBSQLibtclOratclSybtcldb2tcl以及还有更多、更多 - 请参考Tcl/Tk Wiki，特别是Tcl/Tk Wiki Database Category 。範例下面是TCL程式的例子：#!/bin/sh # next line restarts using tclsh in path \ exec tclsh $0 ${1+"$@"} # echo server that can handle multiple # simultaneous connections. proc newConnection { sock addr port } { # client connections will be handled in # line-buffered, non-blocking mode fconfigure $sock -blocking no -buffering line # call handleData when socket is readable fileevent $sock readable [ list handleData $sock ] } proc handleData { sock } { puts $sock [ gets $sock ] if { [ eof $sock ] } { close $sock } } # handle all connections to port given # as argument when server was invoked # by calling newConnection set port [ lindex $argv 0 ] socket -server newConnection $port # enter the event loop by waiting # on a dummy variable that is otherwise # unused. vwait forever 另外一个TK的例子（来自A simple A/D clock）它使用了定时器时间，3行就显示了一个时钟 。proc every {ms body} {eval $body; after $ms [info level 0]} pack [label .clock -textvar time] every 1000 {set ::time [clock format [clock sec] -format %H:%M:%S]} ;# RS 解释：第一行定义了过程every， 每隔ms毫秒，就重新执行body代码 。第二行创建了标籤其内容由time变数决定 。第3行中设定定时器，time变数从当前时间中每秒更新一次 。tcl/tk是python等语言默认的图形界面.