TclTk脚本语言.doc

Tcl / Tk 大全 作者：陆绍飞 会员名：lsf 中国互动出版网Tcl / Tk 大全1一. Tcl / Tk简介111 背景112 定义2二. Tcl / Tk基础32.1 交互方式32.2 非交互方式3三. TCL总体结构图4四. 与其它语言的比较4五. TCL语法55.1 t c l 命令结构.55.2 TCL 的注释55.3 数据类型65.4 变量65.5 字符串的操作85.6 引用和置换105.7 流的控制 IF 和 SWITCH125.8文件的输入输出和文件的信息145.9 过程16六.工具箱176.1 构件的介绍176.2 创建构件176.3 构件的选项186.4 一个TCL./TK 构件的编程示例18七. 小结20Tcl / Tk 大全摘要: Tcl/Tk 是一种简明，高效，可移植性好的编程语言。在信息产业领域具有广泛的应用。本文描述了TCL/TK成长历史，特点，优势及应用范围,阐述了TCL/TK的总体结构图,比较了TCL/TK与当今流行的C+，Java 的性能比较,详细阐述了TCL/TK的语法,并介绍了TK的工具箱.一. Tcl / Tk简介 11 背景Tcl/Tk 的发明人 John Ousterhout 教授在八十年代初，是伯克利大学的教授。在其教学过程中，他发现在集成电路 CAD 设计中，很多时间是花在编程建立测试环境上。并且，环境一旦发生了变化，就要重新修改代码以适应。这种费力而又低效的方法，迫使 Ousterhout 教授力图寻找一种新的编程语言，它即要有好的代码可重用性，又要简单易学，这样就促成了 Tcl (Tool Command Language) 语言的产生。 Tcl 最初的构想的是希望把编程按照基于组件的方法 (component approach)，即与其为单个的应用程序编写成百上千行的程序代码，不如寻找一个种方法将程序分割成一个个小的, 具备一定“完整”功能的，可重复使用的组件。这些小的组件小到可以基本满足一些独立的应用程序的需求，其它部分可由这些小的组件功能基础上生成。不同的组件有不同的功能，用于不同的目的。并可为其它的应用程序所利用。当然, 这种语言还要有良好的扩展性, 以便用户为其增添新的功能模块。最后，需要用一种强的，灵活的“胶水”把这些组件“粘”合在一起, 使各个组件之间可互相“通信”，协同工作。程序设计有如拼图游戏一样，这种设计思想与后来的 Java 不谋而合。终于在 1988 年的春天, 这种强大灵活的胶水 - Tcl 语言被发明出来了。12 定义 按照 Ousterhout 教授的定义， Tcl 是一种可嵌入的命令脚本化语言 (Command Script Language)。“可嵌入”是指把很多应用有效，无缝地集成在一起。“命令”是指每一条 Tcl 语句都可以理解成命令加参数的形式：命令 参数 1 参数 2 参数 3 参数 4 . 参数 N脚本化是指 Tcl 为特殊的，特定的任务所设计。但从现在角度看，可以说 Tcl 是一种集 C 语言灵活强大的功能与 BASIC 语言易学高效的风格于一身的通用程序设计语言。按照 Ousterhout 教授的定义， Tcl 是一种可嵌入的命令脚本化语言 (Command Script Language)。“可嵌入”是指把很多应用有效，无缝地集成在一起。“命令”是指每一条 Tcl 语句都可以理解成命令加参数的形式：命令 参数 1 参数 2 参数 3 参数 4 . 参数 N脚本化是指 Tcl 为特殊的，特定的任务所设计。但从现在角度看，可以说 Tcl 是一种集 C 语言灵活强大的功能与 BASIC 语言易学高效的风格于一身的通用程序设计语言。 t c l (读作“t i c k l e ”)脚本语言和t k 工具箱是为X Wi n d o w 系统创建图形用户界面的编程环境。t c l 和t k 非常容易学习和使用，并且利用它们构造用户界面的速度要比利用传统的X Wi n d o w 编程方法快得多。它最初设计用来为交互式工具提供一种可复用的命令语言，但它的实际发展却远非如此，并且在众多的软件产品中被广泛应用。t c l / t k 的真正功能在于，利用t c l 脚本语言几乎完全可以编写复杂的图形应用程序，因而避开了利用C 语言编写界面时所遇到的界面编程的许多复杂性。 t c l / t k 的正式We b 站点是h t t p : / / w w w. s c r i p t i c s . c o m /。 在这里t c l 平台是S c r i t p i c s 公司的产品。S c r i t p i c s 公司要把t c l 脚本语言推广到主流的团体中去。S c r i t p i c s 公司提供了开发工具，技术支持和在开发t c l 和t k 公开代码的软件包是对t c l 实行商业支持服务。该站点还具有下载和安装t c l / t k 最新版本的连接。目前，可得到的最新t c l / t k 的版本是8 .4a 。 t c l 中的可执行程序t c l ，t c l s h ，w i s h 和t c l h e l p 被Red Hat 的r p m 安装在目录/ u s r / b i n 中。可以使用t c l h e l p 调出关于t c l 和t k 的帮助信息。系统中也提供了t c l s h 和w i s h 的手册页。二. Tcl / Tk基础 t c l 是类似于UNIX shell 的一种解释性的语言，这就是说，t c l 命令首先被读取，接着就被执行。也是一个用来设置查看的工具箱，它可以利用t c l 语法来创建按钮、滚动杆、对话框以及窗口等G U I 组件。为了运行t c l 。t c l s h 和w i s h 与s h 或c s h 这样的标准UNIX shell 类似，它们都允许命令被交互地执行或从某个文件中读入。在实际情况中，人们很少交互地使用这些s h e l l ，因为它们的交互能力很有限。t c l 和w i s h 之间的主要差别是：t c l s h 只理解t c l 命令，而w i s h 理解t c l 和t k 两种命令。2.1 交互方式 本节将简单介绍tcl shell 的交互使用方式，从而来说明它的一个问题。要想开始交互使用t c l ，只须在UNIX shell 的提示符下输入t c l s h (或w i s h )，这时将出现如下提示符：在本章中,交互的命令以百分号( % )开始。在这一提示符后，输入如下命令：% echo “hello world ”在输入这一命令之后，hello world 将会显示在新的提示符之后。接下来执行如下命令：% puts “hello world ”此时，同样的输出结果将显示出来，不过这两个命令之间具有很大的差别。为了显示字符串“hello world ”，第一个命令运行的是e c h o 二进制文件，而第二个命令使用的是t c l 命令puts(put string)。e c h o 形式的”hello world ”，仅当交互运行t c l s h 时才起作用，这正是交互使用t c l s h 和w i s h 的问题之一。例如，如果把命令：echo “hello world ”放入文件h e l l o w o r l d . t c l ，然后从t c l s h 中执行如下s o u r c e 命令：% source helloworld.tcl那么将会得到如下的错误信息：invalid command name “echo ”此行代码将在一个UNIX shell 中执行这一具有变化的命令。这只是在tcl shell 的交互方式中工作方式不同的事例之一。2.2 非交互方式 在通常情况下，t c l s h 和w i s h 般是以非交互的方式来使用的，这就是说，它们在U N I X 的提示符( $ )下被调用并执行脚本，例如：$ tclsh myprog.tcl$ wish myprog.tcl或者从一个脚本内来调用它们，这个脚本的第一行通常与如下内容类似：#!/usr/bin/tclsh在通常情况下，对脚本的每次安装都必须修改第一行，因为w i s h 或t c h s h 可能位于不同的位置。为了避免在每次安装时都必须对脚本进行编辑，t c l s h 的手册页推荐利用如下三行代码作为所有t c l / t k 脚本的头三行：#!/bin/sh# the next line restarts using tclsh exec wish “$0 ”“$”这意味着，用户只须在自己的路径中具有w i s h 就可以使用脚本。利用这种方法产生的各自的结果可能会根据系统上s h 版本的不同而不同。t c l 非交互使用方式的实际优点是与UNIX shell 的非交互使用方式的优点相同。非交互使用方式允许把多个命令组合在一起，并且只要输入脚本的名字就可以执行脚本中的所有命令，同时这种方式可以加速对大型程序的开发和调试。三. TCL总体结构图四. 与其它语言的比较下面就 Tcl 与经典的的程序设计语言 C+，及现在时髦的 Java 做一些比较：C+，Tcl/Tk 和 Java 的性能比较表C+Tcl/TkJava运行程序速度快与 C+ 可比慢调试难易程度复杂每次修改完代码需重新编译简单修改完代码可直接运行比较简单修改完代码需重新编译成ByteCode， 而且编译速度很慢程序代码复杂程度以上面的 grep 为例复杂50 行程序代码简明10 行程序代码比较简单40 行程序代码系统资源占用情况200MB HD32MB Memory3MB HD4MB Memory20MB HD4MB Memory代码可维护性可移植性好一般较好五. TCL语法 本节将介绍t c l 的语法及其在脚本中的使用方式。下面几小节中的代码既可以交互地运行，也可以从脚本运行。在交互方式下，输出内容之间的间距会略有不同。5.1 t c l 命令结构. TCL命令的基本结构是:commandname arguments这里的c o m m a n d n a m e 是t c l 所要执行的命令，a rg u m e n t s 是提供给此命令的可选变元，整个行(c o m m a n d n a m e 和a rg u m e n t s )称为一个命令。命令之间通过换行( n )或者由分号( ; )来分隔。如果在一行上只有一个命令，那么分号可以省略。作为说明，看下面两个命令：set foo 0set bar 1这两个命令可以写成两行，每行写一个；另外，它们也可以写在同一行上，例如：set foo 0; set bar 1;有时需要在表达式中使用另一个表达式的值。使用方括号来实现：puts expr 1000/4；输出将是2 5 0 。在需要时方括号也可以嵌套。5.2 TCL 的注释 除命令外，t c l 脚本中另一种类型的代码行是注释。如同在UNIX shell 和P e r l 中那样，注释行是以号开头的行，例如：#this is a comment但是与s h e l l 中不同的是，下面一行内容并不是注释set foo 0 # initialize foo而且它将会产生一个错误，这是因为t c l 解析器总是认为一条命令应该以换行或分号结束，因此如果想要在命令所在的同一行上包括注释内容，这个命令必须以分号结束，就像下面这样：set foo 0;#initialize foo因此，用分号结束所有的命令通常是一种很好的做法，尽管有时分号并不是必需的。5.3 数据类型 t c l 不支持诸如i n t 、f l o a t 、d o u b l e 或c h a r 之类的变量类型。这意味着，在同一程序中，一个变量可以在不同的时刻分别被设置为数值、字符或字符串。但是在内部，t c l 把所有的变量都当作字符串来看待。当需要操作变量时，t c l 允许以A N S IC 所能识别的任何一种方式来提供数字(实数或整数)，下面列出的是可以提供给变量的有效数字值的例子：7 4 整数0 11 2 八进制，以0 开头O x 4 a 十六进制，以O x 开头7 4 .实数7 4 . 0 实数7 . 4 e 1 实数7 . 4 e 1 实数除此之外的其他值都被当作是字符串，如果把它们应用于数学表达式，则会产生错误。5.4 变量t c l 可以定义两种类型的变量：标量和数组。要创建标量变量并对它赋值，可利用s e t 命令，例如：set banana 1 ；这一命令将创建变量b a n a n a 并把它的值赋为1 。要想把变量b a n a n a 设置为另一个值，只须再次利用s e t ，例如:set banana Fresh from Brazil;此时变量b a n a n a 具有的值为“Fresh from Brazil ”，命令中的双引号用来通知t c l 变量的值由引号中包括空格在内的所有字符组成(在本章后续章节中将讨论引用和置换)。要输出b a n a n a 的值，可利用p u t s 命令：puts $banana;这一命令将把变量b a n a n a 的值显示到标准输出(也称为S T D O U T )。在变量名前放置$用来通知t c l 访问的是这一变量的值，这个规定称为变量置换，它与UNIX shell 中所使用的规定类似。注意 要使用变量内容时应使用$符，而在设置或改变变量时不必使用$.要想创建一个一维数组，可以像下面这样进行：set fruit(O)banana;set fruit(1)orange;这两个命令将创建一个数组变量f r u i t ，并把它的两个元素。0 和1 分别赋值为b a n a n a 和o r a n g e 。注意计算机记数是从0 ，而不是从1 开始。对数组的赋值不必按照索引的顺序，例如，下面命令在数组f r u i t 中创建了三个元素。set fruit 100 peach;set fruit 2 kiwi;set fruit 87 pear;t c l 中的数组非常类似于把“关键字”与值联系在一起的关联数组。t c l 中的数到把某一给定的字符串与另一个字符串联系起来，这使得这种数组可能具有非数字的数组下标，例如：fruit to 100:set fruit banana 100这一命令把数组f r u i t 中元素b a n a n a 的值设置为1 0 0 ，被赋的值也可以不是数字，例如:set food(koala) eucalyptus;set food(chipmunk) acorn;如果想访问存放在一维数组中的值，可利用$，例如：puts $food(koala);这一命令将显示出存放在数组f o o d 中下标为k o a l a 的值，数组的下标也可以是一个变量，例如：set animal chipmunk;puts $food($animal);如果在前面进行了赋值，这两个命令将输出a c o r n 。多维数组是一维数组的简单扩充，它们的设置方式如下：set myarray(1,1) 0;这一命令把数组m y a r r a y 中位于1 ，1 处的元素的值设置为0 。通过利用逗号分隔下标，你可以设置三维、四维或更多维的数组，例如：set array(1,1,1,1,1,1) “foo ”除了设置数组的值外，t c l 还提供用来获取有关数组信息的命令a r r a y ，以及用来输出有关数组信息的命令p a r r a y 。首先，我们来考察p a r r a y 命令。如果已经提供了如下命令：set food(koala) eucalyptus;set food(chipmunk) acorn;set food(panda) bamboo;那么命令parray food将产生如下的输出结果：food(chipmunk)=acornfood(koala)=eucalyptusfood(panda)=bamboo接下来我们来考察a r r a y 命令及其变元，这个命令用来获取有关数组及其元素的信息。a r r a y 命令的基本语法如下：array option arrayname在本节后面将讨论它所支持的选项。有关数组最常用的信息之一是数组的大小。如果已经提供了如下说明：set fruit(0) banana;set fruit(1) peach;set fruit(2) pear;set fruit(3) apple;那么命令array size fruit;将返回4 ，这一数值通常在循环中非常有用。由于数组可以具有非顺序的或非数字的下标，因此a r r a y 命令提供一个用来从数组中获取元素的选项。假设数组f o o d 已经像前面介绍的那样进行了定义，那么开始获取元素所须做的第一件事是利用s t a r t s e a r c h 遍历数组。这是通过首先获取数组的一个搜索I D 来完成的：set food_sid array startsearch food在方括号中的命令array startsearch food 返回一个字符串，这一字符串是搜索标志的名字(请参看“引用和替换”)。这个名字将在以后的引用中用到，因此需要把它赋给某个变量。在本例中，这一变量为f o o d _ s i d 。要获取f o o d 数组的第一个元素(以及其后的每个元素)，可以利用如下命令：array nextelement food $food_sid;当完成对数组的搜索时，可利用如下命令终止搜索：array donesearch food $food_sid;a r r a y 命令的另一个选项是在遍历数组时经常用到的a n y m o r e 。当在搜索中还有元素时，它将返回t r u e (也就是1 )，这一命令当与前面所说明的数组f o o d 一起使用时，在前两次将返回1 。array anymore food $food_sid;要清除变量(标量或数组)，可以利用u n s e t 命令，例如：unset banana;这个命令将取消b a n a n a 变量。如果你利用unset $banana (假如b a n a n a 已被设置为前面所显示的值)来取代刚才的b a n a n a ，那么你会得到如下一条错误信息：cant unset 0 : no such variable发生错误的原因是:当把$放在变量名的前面时，在执行命令之前变量的值将被替换进去。5.5 字符串的操作对字符串进行操作的最简单的形式是利用a p p e n d 命令把多个字符和变量连接在一起。作为说明，考察如下几条命令这些命令的输出结果为：Begin a String with some text and add even more text to it.你也可以利用如下命令来达到相同的结果：但是这种做法与利用a p p e n d 相比，执行起来要慢一些，这是因为a p p e n d 不像s e t 那样要执行字符拷贝。为了能够执行更多高级的字符操作，t c l 提供了s t r i n g 命令，这一命令能够识别许多选项。s t i n g 命令的基本语法是：string option string1 string2这里的s t r i n g 1 和s t r i n g 2 可以是文字串(例如，“this is a string ”)，也可以是变量，o p t i o n 是下列选项之一：c o m p a r e 按照词典的排序方式进行比较，根据s t r i n g 1 小于、等于或大于s t r i n g 2 ，分别返回-1 、0 或1 (类似于C 库函数s t r c m p )f i r s t 返回在s t r i n g 2 中第一次出现s t r i n g 1 的位置如果s t r i n g 1 没有出现在s t r i n g 2 中，则返回-1l a s t 返回在s t r i n g 2 中最后一次出现s t r i n g 1 的位置。如果s t r i n g 1 没有出现在s t r i n g 2 中，则返回-1s t r i n g 命令的如下选项将把s t r i n g 2 解释为要从s t r i n g l 中删除的一列字符：t r i m 从s t r i n g 1 中删除开头和结尾的出现在s t r i n g 2 中的字符t r i m l e f t 从s t r i n g 1 中删除开头的出现在s t r i n g 2 中的字符t r i m r i g h t 从s t r i n g 1 中删除结尾的出现在s t r i n g 2 中的字符s t r i n g 命令的如下选项只利用s t r i n g 1 作为变元：l e n g t h 返回s t r i n g 1 包含的字符数t o l o w e r 返回s t r i n g 1 中的所有字符被转换为小写字符后的新字符串t o u p p e r 返回s t r i n g 1 中的所有字符被转换为大写字符后的新字符串现在让我们来考察几个例子。首先，创建一个字符串并获取其长度：set str Here Is A Test String;string length $str;这一命令给出的长度为2 3 (l e n g t h 选项对空格字符也计算在内)。现在，让我们来获取在s t r 字符串中第一次和最后一次出现字符串“s t ”的位置：string first st $str;string last st $str这两个命令给出第一次出现“t ”的值为1 3 (相应于在Te s t 中出现的位置)，最后一次出现“s t ”的值也为1 3 (还是Te s t )。在S t r i n g 中出现的“t ”为什么不算数呢？这是因为大多数字符串比较函数是区分大小写和空格的，下面的代码将首先把s t r 转换为小写字体，然后再执行查找：string last st string tolower $str;此时，这一命令给出的值为1 6 ，它相应于S t r i n g 中的“s t ”。最后，让我们来删除$ s t r 字符串前后的空格，然后获取这一字符串的长度：string length string trim $str ,该命令的返回值为2 1 ，这意味着已经删除了第一个和最后一个空格。33.2.6 数字的操作t c l 提供两个操作数字变量和常数的命令：i n c r 和e x p r 。t c l 中的i n c r 命令等价于C 语言中的操作符+ =、- =、+ +和- -，它的基本语法是:incr variable integer这里的v a r i a b l e 必须是一个整数，i n c r 命令将把给定的i n t e g e r 添加到v a r i a b l e 上，因此减法可通过提供负整数来执行。现在让我们演示一下它的用法。首先，创建一个变量，并对这个变量执行i n c r :set a 81;incr a;puts $a;$ a 此时具有的值为8 2 。在缺省情况下，i n c r 与+ +相同；当没有提供i n t e g e r 变元时，i n c r 将把1 添加到所指定的变量上。现在，如果要从$ a 上减3 ，可利用如下命令：incr a -3puts $a可以看到，$ a 具有的值为7 9 。最后一点需要说明的是，这里的i n t e rg e r 可以是某个变量的值，例如：set a 6;set b 9;incr a $b;puts $a;此时a 具有的值为1 5 。对于较复杂的数学操作，t c l 提供了e x p r 命令，这一命令对所有标准的ANSI C 操作符有效，操作符的优先级大部分与ANSI C 中的优先级相同。当需要执行算术操作时，必须把e x p r 命令放在算术操作之前，例如：set a 20;set b 4;set c $a/$b;puts $c;上述命令产生的输出结果为:20/4而不是所想要的结果5 。为了获得正确的答案，需要利用e x p r 命令，例如：set c expr $a/$b;除了标准操作符+、-、*、/之外，还可以为e x p r 提供几个能够使它执行其他数学操作的选项。e x p r 命令的基本语法是：expr function numbere x p r 能够识别的一些函数及其返回的值如下：a b s ( x ) x 的绝对值r o u n d ( x ) x 舍入后所得到的整数值c o s ( x ) x 的余弦( x 为弧度)c o s h ( x ) x 的双曲余弦a c o s ( x ) x 的反余弦( 0 到p )s i n ( x ) x 的正弦( x 为弧度)s i n h ( x ) x 的双曲正弦( -p/ 2 到p/ 2 )a s i n ( x ) x 的反正弦( -p/ 2 到p/ 2 )t a n ( x ) x 的正切( x 为弧度)t a n h ( x ) x 的双曲正切a t a n ( x ) x 的反正切( -p/ 2 到p/ 2 )e x p ( x ) e 的x 次幕l o g ( x ) x 的自然对数l o g 1 0 ( x ) x 的底为1 0 的对数s q r t ( x ) x 的平方根下列数学函数采用两个数字变元：p o w ( x , y ) x 的y 次幂这个函数的用法如下：set a 2;set b expr pow($a,3);puts $b;这些命令产生的输出结果为8 . 0 ，即2 的3 次幕的值。5.6 引用和置换 引用和置换被大量应用于与变量有关的操作。在本章的前面，我们曾提到过引用(利用双引号构成字符串)和置换的最基本形式。t c l 还支持另一种类型的引用，即花括号引用，以及另一种类型的置换，即命令的置换。回顾过去，我们知道双引号的主要用途是创建具有内嵌空格的字符串，例如：set kiwi Fresh from New Zealand;双引号也可以用来创建多行的字符串，例如：set kiwi Fresh fromNew Zealand 3 for a dollar;除创建多行字符串外，在t c l 字符串中还可以使用ANSI C 语言的标准转义序列，例如：set kiwi Fresh from New Zealandnt3 for a dollar;这一命令的输出结果如下：Fresh from New Zealand3 for a dollar;除此以外，在双引号之间的字符串可以应用两种类型的置换。第一种类型的置换，也就是变量置换，在本章前面“变量”一节中已经做过说明。在利用双引号引起来的字符串中，你可以通过在变量名前添加$来访问该变量的值、因此下面的命令:set fruit kiwi;set place New Zealand;set how_many 3;puts $fruit,fresh from $place,$how_many for a dollar;输出的结果为：kiwi, fresh from New Zealand, 3 for a dollar另一种类型的置换是命令置换。命令置换块以左括号( )开始，以右括号( )结束，例如：set len_in 2; puts $len_in inches is expr $len_in*2.54 cm;这一行代码的输出结果为：2 inches is 5.08 cm5 . 0 8 是命令expr $len_in*2.54产生的结果。由于这一命令位于括号中，因此它的返回值将被替换进去。在本例中，我们使用的是t c l 命令e x p r ，不过任何t c l 命令都可以放在括号之中。命令置换可用于大多数命令中，而不只限于由双引号括起来的命令，例如：set len_in 2;set len_cm expr $len_in*2.54;puts $len_in inches is $len_cm cm;这几个命令产生的输出结果与下面一行代码相同：set len_in 2; puts $len_in inches is expr $len_in*2.54 cm;可以在t c l 中使用的另一种类型的引用是花括号的引用，这种类型的引用类似于UNIX shell中单引号的使用。花括号的引用将利用给定的字符来创建字符串集，其中不进行置换(命令置换或变量置换)，并且也不对C 语言的转义序列进行解释，例如：puts Thisnis a nmulti-linenstring这一命令产生的输出结果为：Thisis amulti-linestring而下面的命令puts Thisnis a nmulti-linenstring产生的输出结果为：Thisnis a nmulti-linenstring要想在花括号括起来的字符串中使用制表符、换行符以及其他的特殊字符，必须按原样实际地输入它们，例如：putsThisis amulti-linestring这一命令将产生想要的输出结果。利用花括号括起来的字符串，其真正的用途在于把某些具有特殊意义的字符作为值提供给变量，例如：set price 1.00 ；puts Pears,$price per pound;这两个命令的输出结果为：Pears,$1.00 per pound然而，$ $ p r i c e 有可能会引起混乱，因此最好的办法是使变量p r i c e 具有的值为$ 1 . 0 0 。你可以利用花括号像下面这样来达到目的：set price $1.00;puts Pears,$price per pound;花括号引用的另一个用途是推迟求值，并用于控制结构和过程的定义。在这些情况下，当读取整个代码块后，变量的值将被置换进去。5.7 流的控制 IF 和 SWITCHt c l 提供几个用来控制流的命令，并且支持有关字符串和数字的所有ANSI C 的标准比较操作符。本节将从i f / e l s e i f / e l s e 命令开始讨论。下面显示的是一个最简单的i f 语句：if $x0set x 10;警告T C L 对花括号和空格的使用是十分苛刻的。在i f ，e l s e i f 或e l s e 语句中的开始的花括号必须要和i f ，e l s e i f 或e l s e 在同一行中。而括号外必须是有一个空格。且e l s e 或e l s e i f语句必须要在前一个if 或elseif 的后括号的同一行中。这个例子在i f 语句体中只有一行代码，不过你可以添加任何数量的行和子语句块。如果需要执行其他条件的判断，那么每个判断可以像下面那样在括号中给定：if ($x=SJ) ($x=LA) puts You Live in California!;判断也可以像下面例子所示的那样进行嵌套：if ($arch=ppc) ($arch=intel)&($os!=Linux) puts Get Linux!;要把else 语句体添加到if 语句，可以像下面这样来完成：if $x = 0 set x 10; else set x 0;你还可以根据需要添加任意多的elseif 语句：if $x = 0 set x 10; elseif $x = 10 incr x -1; elseif $x = 100 set x 50; else set x 0;在许多情况下，添加过多的elseif 语句会使程序变得累赘并难以理解。为了提供表示相同逻辑关系的一种较紧凑的方法，可以利用t c l 的s w i t c h 命令。s w i t c h 的功能是把某一值(字符串或数字)与相应的块对应起来。当利用s w i t c h 语句编写代码时，上述i f 语句将变为：switch $x 0 set x 10;10 incr x -1;100 set x 50;在缺省情况下，只有对应于匹配值的代码被执行，但如果代码块被指定为一个减号( - )，那么s w i t c h 语句将进行“下放”，从而执行后面的代码块，例如：switch $x 0 -10 -100incr x -1;这一s w i t c h 语句等价于下面的i f 语句：if ($x = 0) ($x = 10) ($x=100) incr x -1;33.2.9 循环t c l 提供三个循环命令，它们分别是： for foreach while此外，t c l 还提供两个循环控制命令： break continue当测试条件为t r u e 时，w h i l e 循环将执行它的循环体。w h i l e 循环的结构是：while 条件 程序块下面的代码是一个简单的w h i l e 循环，它共计要循环1 0 次:set x 0;while $x10 incr x;puts $x;警告在for ，foreach 或while 语句中的开始的花括号必须要和for ，foreach 或while 在同一行中。而括号外必须是有一个空格。f o r e a c h 将在一组变元中进行循环，并且每次都将执行它的循环体。f o r e a c h 循环具有如下结构：foreach variable items block这里v a r i a b l e 是变量的名字，位于i t e m s 集合中的每个元素将依次赋给这个变量。下面是f o r e a c h 循环的一个例子：foreach element o c n p li switch $element o-n puts gas;c-p-liputs solid;在这一个例子中，i t e m 集合是利用要查看的元素列表来指定的，其实这里也可以利用变量，例如：set elements o c n p li;foreach element $elements switch $element o-n puts gas;c-p-liputs solid;如果给定的是一个变量而不是元素列表，则不应该使用花括号，因为花括号将被作为用于引用的花括号来对待。f o r 循环是最常用到的循环，它的结构是：for initialization condition increment body下面是一个计数到1 0 的简单f o r 循环的例子：for set i 0 $i= 0这一命令能够正确运行的原因是：当到达文件结束时，g e t s 命令将返回- 1 。在这一例子中，g e t s 命令将从文件句柄$ f 中读入一行，并把这一值赋给变量l i n e 。在循环体中，可以对$ l i n e 进行访问和操作。如果以可写的方式打开了文件，那么就可以利用p u t s 命令把输出写到这个文件中。如果文件句柄$ f 对应于一个以可写方式打开的文件，那么命令将把字符串“This is a line of text ”写到这个打开的文件中。puts $f This is a line of text;另一个文件输入输出命令是c l o s e ，这一命令利用文件句柄作为它的参数。要关闭前面打开的文件，只须使用如下命令：close $f;在程序的末尾关闭所有打开的文件句柄通常是一个良好的做法；另外，当在程序中多次使用同一个文件句柄变量时，在下个o p e n 命令之前关闭它也是一种值得提倡的做法。除了对文件进行读和写外，有时也需要获取有关文件的信息。t c l 提供有一个f i l e 命令，该命令可用来完成这一任务，f i l e 命令的语法是：file option filename这里的f i l e n a m e 是所要进行探测的文件名，o p t i o n 是下列选项之一。下列选项将根据文件的信息返回t r u e (1 )或f a l s e (O )。e x e c u t a b l e 如果当前用户对该文件可执行，则返回t r u ee x i s t s 如果文件存在，则返回t r u ei s d i r e c t o r y 如果文件是一个目录，则返回t r u ei s f i l e 如果文件是一个普通文件，则返回t r u eo w n e d 如果当前用户拥有该文件，则返回t r u er e a d a b l e 如果当前用户对该文件可读，则返回t r u ew r i t a b l e 如果当前用户对该文件可写，则返回t r u e下列选项返回文件的附加信息：a t i m e 返回自1 9 7 0 年1 月1 日以来最后一次访问文件的时间(以秒表示)m t i m e 返回自1 9 7 0 年1 月1 日以来最后一次修改文件的时间(以秒表示s i z e 返回文件的大小(以字节表示)r e a d l i n k 当给出的文件是符号链接时，返回符号链接的值t y p e 返回给出文件类型的字符串 5.9 过程t c l 中的过程等价于C 语言中的函数。要创建过程，可利用p r o c 命令，这一命令的语法是：proc procedure_name arguments body其中变元的数目是可变的，空的变元表由 来表示；b o d y 可以包含任何有效的t c l 语句并且长度不限。下面所示是一个无变元的简单过程：proc test_proc puts procedure test;要调用这一过程，只须给出它的名字，例如：pro