Tcl脚本入门笔记详解（一）

大家好，欢迎来到IT知识分享网。

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基础入门

脚本学习核心

• TCL脚本执行依赖于解释器（逐行执行）。
• TCL有效命令行以命令+字符串（结合空格间隔符）形成
• 明白置换（$、［］、\）和引用（””,｛｝）的差别和联系。
• 理解命令eval、expr、source、exec的差别。
• 掌握｛*｝配合glob等返回list后的操作

基础语法

• 一个TCL脚本可以包含一个或多个命令。命令之间必须用换行符或分号隔开，下面的两个脚本都是合法的：

set a 1 set b 2 或set a 1; set b 2

• TCL每一命令包含一个或几个单词，第一个单词代表命令名,另外的单词则是这个命令的参数，单词之间必须用空格或TAB键隔开。

•注释：使用#注释，set foo 0；  #注释内容，注释符号前应该有分号，因为tcl解析器总是认为一条命令应该以换行或者分号结束，其他的在同一行中都认为是参数。

置换(substitution )

• TCL解释器在分析命令时，把所有的命令参数都当作字符串看待，数据类型：tcl不支持其他语言中的形如int, double ,char等等类型，唯一支持的就是string类型。例如:

set x 10 ； #定义变量x,并把x的值赋为10 10 set y x+100 ；#y的值是x+100,而不是我们期望的110 x+100

上例的第二个命令中，x被看作字符串x+100的一部分，如果我们想使用x的值’10’,就必须告诉TCL解释器：我们在这里期望的是变量x的值，而非字符’X’，怎么告诉TCL解释器呢，这就要用到TCL语言中提供的置换功能。
• TCL提供三种形式的置换：变量置换、命令置换和反斜杠置换.

变量置换

•变量置换由一个$符号标记，变量置换会导致变量的值插入一个单词中。例如：

set y $x+100； #y的值是10+100,这里x被置换成它的值10 10 + 100

命令置换

•命令置换是由[ ]括起来的TCL命令及其参数，命令置换会导致某一个命令的所有或部分单词被另一个命令的结果所代替。例如：

set y [expr $x+100]; 110

反斜杠置换

• TCL语言中的反斜杠\置换似于C语言中反斜杠的用法，主要用于在单词符号中插入诸如换行符、空格、［、$等被TCL解释器当作特殊符号对待的字符。例如：

set msg multiplex\ space; #msg的值为multiple space。 multiple space

set a \x48 ; #对应 \xhh H #十六进制的48是72,对应字符H

双引号和花括号

• 除了使用反斜杠外，TCL提供另外两种方法来使得解释器把分隔符和置换符等特殊字符当作普通字符，而不作特殊处理，这就要使用双引号” “和花括号({})。
• TCL解释器对双引号中的各种分隔符将不作处理，但是对换行符及$和[ ]两种置换符会照常处理。

set y "$x ddd"; 100 ddd

变量

变量：简单变量

 一个TCL简单变量包含两个部分 ：名字和值。名字和值都可以是任意字符串。
TCL解释器在分析一个变量置换时，只把从$符号往后直到第一个不是字母、数字或下划践的字符之间的单词符号作为要被置换的变量的名字。变量：在tcl变量不需要声明就可以直接赋值,

set a 2 ; set a.1 4; set b $a.1; 2 4 2.1

•如果变量名中有不是字母、数字或下划线的字符，又要用置换,可以用花括号把变量名括起来。

set b ${a.1}； 4

set a {kdfj kjdf} ; # 变量a的值是kdfj kjdf set a; #读取变量a的值

变量：数组

•数组是一些元素的集合。TCL数组和普通计算机语言中的数组有很大的区别。在TCL中，不能单独声明一个数组，数组只能和数组元素一起声明。数组中，数组元素的名字包含两部分：数组名和数组中元素的名字，TCL中数组元素的名字(下标)可以为任何字符串。

set day(monday) 1; set day(tuesday) 2;

相关命令

• unset这个命令从解释器中删除变量，它后面可以有任意多个参数，每个参数是一个变量名，可以是简单变量，也可以数组或数组元素。
 

unset a b day(monday)

• append命令把文本加到一个变量的后面
 

set txt hello; #hello append txt"! How are you"; #hello! How are you

• incr命令把一个变量值加上一个整数。incr要求变量原来的值和新加的值都必须是整数。
 

set b 2; incr b 3; #结果为5

表达式

• TCL支持常用的数学函数，表达式中数学函数的写法类似于C\C++语言的写法，数学函数的参数可以是任意表达式，多个参数之间用逗号隔开。
 

set x 2; #变量x的值是2 expr 2* sin($x<3)； #表达式的值为1.

•需要注意的一点是，数学函数并不是命令，只在表达式中出现才有意义，即出现在expr之后才有意义。

List

•list这个概念在TCL中是用来表示集合的。TCL中list是由一堆元素组成的有序集合，list可以嵌套定义，list每个元素可以是任意字符串，也可以是list。
{}                                                #空 list   
{abed}  {a {b c} d}                      #list可以嵌套

•语法：list value value... •这个命令生成list,就是所有的value。 list 1 2 {3 4} ; # list的元素是1 2 {3 4} •语法：concat list list... #整合两个list concat {1 2 3} {4 5 6} #整合后的list为{1 2 3 4 5 6) •语法：lindex list index #返回list的第index个元素 lindex {1 2 {3 4}} 2 #返回list的第2个元素3 4 •语法：llength list #返回list的元素个数 llength {1 2 {3 4}} #3 •语法：linsert list index value value… #list插入元素 linsert {1 2 5 6} 1 7 8 #1 7 8 2 5 6 • 语法：lappend varname value value... 把每个vaIue的值作为一个元素附加到变量vamame后面 lappend a 1 2 3 #1 2 3 

控制流：if命令

if { $x>0 }{ #注意'{'一定要写在上一行,因为不这样，TCL解释器会认为if命令在换行符已经结束了； ..… #同时if和'{'之间应该有空格否则TCL解释器会把if'{'作为一个整体命令导致出错 }elseif {$x==1} { … } elseif { $ x = = 2 } { ....}else{ ….}

循环命令：while

set b " " set i [expr [llength $a] -1] while { $i>=0}{ lappend b [lindex $a $i] incr i-1 ) 〃变量a是一个链表，脚本把a的值复制到b

循环变量：for

set b " " for {set i [expr [llength $a] -1]} {$i>=0} {incr i -1) { lappend b [lindex $a $i] } #作用和上面的例子是相同的。 #例如： for {set i 0} {$i< 10} {incr i} {puts $i;} #将打印出0到9

foreach命令

set b " " foreach i $a{ set b [linsert$b 0 $i] }

变量a是一个链表，脚本把a的值复制到b。

 switch命令

switch $x { #一旦switch命令找到一个模式匹配 b {incr t1} #就执行相应的脚本，并返回脚本的值，作为switch命令的返回值 c {incr t2} } switch $x { 　　 数值1 { 操作1 ;} 数值2 { 操作2 ;} }

命令

•在循环体中，可以用break和continue命令中断循环。其中break命令结束整个循环过程并从循环中跳出，continue只是结束本次循环。
• source命令读一文件并把这个文件的内容作为一个脚本进行求值

source e:/tcl&c/hello.tcl

eval set a 2 ;set b 4