TCL教程Word文档格式.docx
《TCL教程Word文档格式.docx》由会员分享，可在线阅读，更多相关《TCL教程Word文档格式.docx（53页珍藏版）》请在冰点文库上搜索。
这时，y的值还不是我们想要的值110，而是10+100，因为TCL解释器把10+100看成是一个字符串而不是表达式，y要想得到值110，还必须用命令置换，使得TCL会把10+100看成一个表达式并求值。
1.2.2.命令置换（commandsubstitution）
命令置换是由[]括起来的TCL命令及其参数，命令置换会导致某一个命令的所有或部分单词被另一个命令的结果所代替。
%sety[expr$x+100]
110
y的值是110，这里当TCL解释器遇到字符'
['
时，它就会把随后的expr作为一个命令名，从而激活与expr对应的C/C++过程，并把'
expr'
和变量置换后得到的'
10+110'
传递给该命令过程进行处理。
如果在上例中我们去掉[]，那么TCL会报错。
因为在正常情况下，TCL解释器只把命令行中的第一个单词作为看作命令，其他的单词都作为普通字符串处理，看作是命令的参数。
注意，[]中必须是一个合法的TCL脚本，长度不限。
[]中脚本的值为最后一个命令的返回值，例如：
%sety[expr$x+100;
setb300]//y的值为300，因为setb300的返回值为300
300
有了命令置换，实际上就表示命令之间是可以嵌套的，即一个命令的结果可以作为别的命令的参数。
1.2.3.反斜杠置换（backslashsubstitution）
TCL语言中的反斜杠置换类似于C语言中反斜杠的用法，主要用于在单词符号中插入诸如换行符、空格、[、$等被TCL解释器当作特殊符号对待的字符。
setmsgmultiple\space//msg的值为multiplespace。
如果没有'
\'
的话，TCL会报错，因为解释器会把这里最后两个单词之间的空格认为是分隔符，于是发现set命令有多于两个参数，从而报错。
加入了'
后，空格不被当作分隔符，'
multiplespace'
被认为是一个单词（word）。
又例如：
%setmsgmoney\\$3333\\nArray\a\[2]
//这个命令的执行结果为：
money$3333
Arraya[2]
这里的$不再被当作变量置换符。
TCL支持以下的反斜杠置换:
BackslashSequenceReplacedBy
\aAudiblealert（0x7）
\bBackspace（0x8）
\fFormfeed（0xc）
\nNewline（0xa）
\rCarriagereturn（0xd）
\tTab（0x9）
\vVerticaltab（0xb）
\dddOctalvaluegivenbyddd
（one,two,orthreed'
s）
\xhhHexvaluegivenbyhh
（anynumberofh'
\newlinespaceAsinglespacecharacter.
％seta\x48//对应\xhh
H//十六进制的48正好是72，对应H
％seta\110//对应\ddd
H//八进制的110正好是72，对应H
％seta[expr\//对应\newlinespace，一个命令可以用\newline转到下一行继续
2+3]
5
1.2.4.双引号和花括号
除了使用反斜杠外，TCL提供另外两种方法来使得解释器把分隔符和置换符等特殊字符当作普通字符，而不作特殊处理，这就要使用双引号和花括号（{}）。
TCL解释器对双引号中的各种分隔符将不作处理，但是对换行符及＄和[]两种置换符会照常处理。
%setx100
100
%sety"
$xddd"
100ddd
而在花括号中，所有特殊字符都将成为普通字符，失去其特殊意义，TCL解释器不会对其作特殊处理。
%sety{/n$x[expr10+100]}
/n$x[expr10+100]
1.3.注释
TCL中的注释符是'
＃'
，'
和直到所在行结尾的所有字符都被TCL看作注释，TCL解释器对注释将不作任何处理。
不过，要注意的是，'
必须出现在TCL解释器期望命令的第一个字符出现的地方，才被当作注释。
%＃Thisisacomment
%seta100#Notacomment
wrong#args:
shouldbe"
setvarName?
newValue?
"
%setb101;
#thisisacomment
101
第二行中'
就不被当作注释符，因为它出现在命令的中间，TCL解释器把它和后面的字符当作命令的参数处理，从而导致错误。
而第四行的'
就被作为注释，因为前一个命令已经用一个分号结束，TCL解释器期望下一个命令接着出现。
现在在这个位置出现'
#'
，随后的字符就被当作注释了。
2.变量
2.1.简单变量
一个TCL的简单变量包含两个部分：
名字和值。
名字和值都可以是任意字符串。
例如一个名为“13237&
*:
hdgg"
的变量在TCL中都是合法的。
不过为了更好的使用置换（substitution），变量名最好按C\C++语言中标识符的命名规则命名。
TCL解释器在分析一个变量置换时，只把从＄符号往后直到第一个不是字母、数字或下划线的字符之间的单词符号作为要被置换的变量的名字。
例如:
%seta2
2
seta.14
4
%setb$a.1
2.1
在最后一个命令行，我们希望把变量a.1的值付给b，但是TCL解释器在分析时只把$符号之后直到第一个不是字母、数字或下划线的字符（这里是'
.'
）之间的单词符号（这里是'
a'
）当作要被置换的变量的名字，所以TCL解释器把a置换成2,然后把字符串“2.1”付给变量b。
这显然与我们的初衷不同。
当然，如果变量名中有不是字母、数字或下划线的字符，又要用置换，可以用花括号把变量名括起来。
%setb${a.1}
TCL中的set命令能生成一个变量、也能读取或改变一个变量的值。
％seta{kdfjkjdf}
kdfjkjdf
如果变量a还没有定义，这个命令将生成变量a，并将其值置为kdfjkjdf，若a已定义，就简单的把a的值置为kdfjkjdf。
％seta
这个只有一个参数的set命令读取a的当前值kdfjkjdf。
2.2.数组
数组是一些元素的集合。
TCL的数组和普通计算机语言中的数组有很大的区别。
在TCL中，不能单独声明一个数组，数组只能和数组元素一起声明。
数组中，数组元素的名字包含两部分：
数组名和数组中元素的名字，TCL中数组元素的名字（下标〕可以为任何字符串。
setday（monday）1
setday（tuesday）2
第一个命令生成一个名为day的数组，同时在数组中生成一个名为monday的数组元素，并把值置为1，第二个命令生成一个名为tuesday的数组元素，并把值置为2。
简单变量的置换已经在前一节讨论过，这里讲一下数组元素的置换。
除了有括号之外，数组元素的置换和简单变量类似。
例：
setamonday
setb$day（monday）//b的值为1，即day（monday）的值。
setc$day（$a）//c的值为1，即day（monday）的值。
TCL不能支持复杂的数据类型,这是一个很大的缺憾，也是TCL受指责很多的方面。
但是TCL的一个扩展ITCL填补了这个缺憾
2.3.相关命令
2.3.1.set
这个命令在1.1已有详细介绍。
2.3.2.unset
这个命令从解释器中删除变量，它后面可以有任意多个参数，每个参数是一个变量名,可以是简单变量，也可以是数组或数组元素。
%unsetabday（monday）
上面的语句中删除了变量a、b和数组元素day（monday），但是数组day并没有删除，其他元素还存在，要删除整个数组，只需给出数组的名字。
%puts$day（monday）
can'
tread"
day（monday）"
:
nosuchelementinarray
%puts$day（tuesday）
%unsetday
day（tuesday）"
nosuchvariable
2.3.3.append和incr
这两个命令提供了改变变量的值的简单手段。
append命令把文本加到一个变量的后面，例如：
%settxthello
hello
%appendtxt"
!
Howareyou"
hello!
Howareyou
incr命令把一个变量值加上一个整数。
incr要求变量原来的值和新加的值都必须是整数。
%setba
a
%incrb
expectedintegerbutgot"
a"
%setb2
%incrb3
3.表达式
3.1.操作数
TCL表达式的操作数通常是整数或实数。
整数一般是十进制的，但如果整数的第一个字符是0（zero），那么TCL将把这个整数看作八进制的，如果前两个字符是0x则这个整数被看作是十六进制的。
TCL的实数的写法与ANSIC中完全一样。
如：
7.9e+12
6e4
3.
3.2.运算符和优先级
下面的表格中列出了TCL中用到的运算符，它们的语法形式和用法跟ANSIC中很相似。
这里就不一一介绍。
下表中的运算符是按优先级从高到低往下排列的。
同一格中的运算符优先级相同。
语法形式
结果
操作数类型
-a
a
~a
负a
非a
int,float
int
a*b
a/b
a%b
乘
除
取模
a+b
a-b
加
减
a<
<
b
a>
>
左移位
右移位
=b
小于
大于
小于等于
大于等于
int,float,string
a==b
a!
等于
不等于
a&
位操作与
a^b
位操作异或
a|b
位操作或
&
逻辑与
a||b
逻辑或
a?
b:
c
选择运算
a:
3.3.数学函数
TCL支持常用的数学函数，表达式中数学函数的写法类似于C\C++语言的写法，数学函数的参数可以是任意表达式，多个参数之间用逗号隔开。
%setx2
%expr2*sin（$x<
3）
1.68294196962
其中expr是TCL的一个命令，语法为：
exprarg?
arg...?
两个？
之间的参数表示可省，后面介绍命令时对于可省参数都使用这种表示形式。
expr可以有一个或多个参数，它把所有的参数组合到一起，作为一个表达式，然后求值：
%expr1＋2*3
7
%expr1+2*3
需要注意的一点是，数学函数并不是命令，只在表达式中出现才有意义。
TCL中支持的数学函数如下
abs（x）Absolutevalueofx.
acos（x）Arccosineofx,intherange0top.
asin（x）Arcsineofx,intherange-p/2top/2.
atan（x）Arctangentofx,intherange-p/2top/2.
atan2（x,y）Arctangentofx/y,intherange-p/2top/2.
ceil（x）Smallestintegernotlessthanx.
cos（x）Cosineofx（xinradians）.
cosh（x）Hyperboliccosineofx.
double（i）Realvalueequaltointegeri.
exp（x）eraisedtothepowerx.
floor（x）Largestintegernotgreaterthanx.
fmod（x,y）Floating-pointremainderofxdividedbyy.
hypot（x,y）Squarerootof（x2+y2）.
int（x）Integervalueproducedbytruncatingx.
log（x）Naturallogarithmofx.
log10（x）Base10logarithmofx.
pow（x,y）xraisedtothepowery.
round（x）Integervalueproducedbyroundingx.
sin（x）Sineofx（xinradians）.
sinh（x）Hyperbolicsineofx.
sqrt（x）Squarerootofx.
tan（x）Tangentofx（xinradians）.
tanh（x）Hyperbolictangentofx.
TCL中有很多命令都以表达式作为参数。
最典型的是expr命令，另外if、while、for等循环控制命令的循环控制中也都使用表达式作为参数。
4.List
list这个概念在TCL中是用来表示集合的。
TCL中list是由一堆元素组成的有序集合，list可以嵌套定义，list每个元素可以是任意字符串，也可以是list。
下面都是TCL中的合法的list：
{}//空list
{abcd}
{a{bc}d}//list可以嵌套
list是TCL中比较重要的一种数据结构，对于编写复杂的脚本有很大的帮助，TCL提供了很多基本命令对list进行操作，下面一一介绍：
4.1.list命令
语法：
list?
valuevalue...?
这个命令生成一个list，list的元素就是所有的value。
%list12{34}
12{34}
4.2.concat命令
语法:
concatlist?
list...?
这个命令把多个list合成一个list，每个list变成新list的一个元素。
4.3.lindex命令
lindexlistindex
返回list的第index个（0-based）元素。
%lindex{12{34}}2
34
4.4.llength命令
llengthlist
返回list的元素个数。
例
%llength{12{34}}
3
4.5.linsert命令
linsertlistindexvalue?
value...?
返回一个新串，新串是把所有的value参数值插入list的第index个（0-based）元素之前得到。
例:
%linsert{12{34}}178{910}
178{910}2{34}
4.6.lreplace命令
lreplacelistfirstlast?
valuevalue...?
返回一个新串，新串是把list的第firs（0-based）t到第last个（0-based）元素用所有的value参数替换得到的。
如果没有value参数，就表示删除第first到第last个元素。
%lreplace{178{910}2{34}}33
1782{34}
%lreplace{1782{34}}44456
1782456
4.7.lrange命令
lrangelistfirstlast
返回list的第first（0-based）到第last（0-based）元素组成的串,如果last的值是end。
就是从第first个直到串的最后。
%lrange{1782456}3end
2456
4.8.lappend命令
lappendvarnamevalue?
把每个value的值作为一个元素附加到变量varname后面，并返回变量的新值，如果varname不存在，就生成这个变量。
%lappenda123
123
%seta
4.9.lsearch命令
lsearch?
-exact?
?
-glob?
-regexp?
listpattern
返回list中第一个匹配模式pattern的元素的索引，如果找不到匹配就返回-1。
-exact、-glob、-regexp是三种模式匹配的技术。
-exact表示精确匹配；
-glob的匹配方式和stringmatch命令的匹配方式相同，将在后面第八节介绍string命令时介绍；
-regexp表示正规表达式匹配，将在第八节介绍regexp命令时介绍。
缺省时使用-glob匹配。
%seta{howareyou}
howareyou
%lsearch$ay*
%lsearch$ay?
-1
4.10.lsort命令
lsort?
options?
list
这个命令返回把list排序后的串。
options可以是如下值：
-ascii按ASCII字符的顺序排序比较.这是缺省情况。
-dictionary按字典排序,与-ascii不同的地方是：
（1）不考虑大小写
（2）如果元素中有数字的话,数字被当作整数来排序.
因此：
bigBoy排在bigbang和bigboy之间,x10y排在x9y和x11y之间.
-integer把list的元素转换成整数,按整数排序.
-real把list的元素转换成浮点数,按浮点数排序.
-increasing升序（按ASCII字符比较）
-decreasing降序（按ASCII字符比较）
-commandcommandTCL自动利用command命令把每两个元素一一比较,然后给出排序结果。
4.11.split命令
splitstring?
splitChars?
把字符串string按分隔符splitChars分成一个个单词，返回由这些单词组成的串。
如果splitChars
是一个空字符{}，string被按字符分开。
如果splitChars没有给出,以空格为分隔符。
%split"
how.are.you"
.
howareyou"
{}
how{}are{}you
4.12.join命令
joinlist?
joinString?
join命令是命令的逆。
这个命令把list的所有元素合并到一个字符串中，中间以joinString分开。
缺省的joinString是空格。
%join{how{}are{}you}{}
%join{howareyou}.
how.are.you
5.控制流
5.1.if命令
TCL中的控制流和C语言类似，包括if、while、for、foreach、switch、break、continue等命令。
iftest1body1?
elseiftest2body2elseif....?
elsebodyn?
TCL先把test1当作一个表达式求值，如果值非0，则把body1当作一个脚本执行并返回所得值，否则把test2当作一个表达式求值，如
升级会员 