另外关于Tcl的注释有一个特殊的要求：'＃'必须出现在Tcl解释器期望命令的第一个字符出现的地方，才被当作注释。
例如：
set a 100 # Not a comment
set b 101 ; # this is a comment
第一个例子中'#'及其后面的内容会被当作set 的参数而非注释从而导致参数个数错误；但第二个被解释为注释，因为
'#'前面有一个分号，而分号和换行一样被看作是命令的分隔符。
set x 10
set y 100 + x
上面命令执行后，y的值是“100 + x”而不是我们期望的110。这是因为Tcl解释器在分析命令时，把所有的命令参数都当作
字符串看待，所以x 被看作了字符串“100 + x”的一部分。如果我们想使用x的值'10' ，就必须告诉Tcl解释器：我们在这里期望的
是变量x的值，而非字符'x'。怎么告诉Tcl解释器呢，这就要用到Tcl语言中提供的置换功能。
Tcl提供三种形式的置换：变量置换、命令置换和反斜杠置换。每种置换都会导致一个或多个单词本身被其他的值所代替。置换
可以发生在包括命令名在内的每一个单词中，而且置换可以嵌套。
（1）变量置换（variable substitution）
变量置换由一个＄符号标记，变量置换会导致变量的值而非变量（标识符）本身被插入到字符串中。
set x 10
set y 100 + $x
这时，y的值还不是我们想要的值110，而是10+100，因为Tcl解释器把10+100看成是一个字符串而不是表达式；y要想得到值
110，还必须用命令置换，使得Tcl会把10+100看成一个表达式并求值。
（2）命令置换（command substitution）
命令置换是由[]括起来的Tcl命令及其参数，命令置换会导致某一个命令的所有或部分单词（参数）被另一个命令的结果所代替。
set x 10
set y [expr 100+$x]
这时，y的值就是110了。这里当Tcl解释器遇到字符'['时，它就会把随后的expr作为一个命令名，从而激活与expr对应的C/C++过
程，并把expr命令中变量置换后得到的'10+110'传递给该命令过程进行处理。
注意，[]中必须是一个合法的Tcl脚本，长度不限。[]中脚本的值为最后一个命令的返回值，例如：
有了命令置换，实际上就表示命令之间是可以嵌套的，即一个命令的结果可以作为别的命令的参数。
（3）反斜杠置换（backslash subtitution)
Tcl语言中的反斜杠置换类似于C语言中反斜杠的用法，主要用于在单词符号中插入诸如换行符、空格、[、$等被Tcl解释器当作
特殊符号对待的字符。例如：
set msg multiple\ space
如果没有'\'的话，Tcl会报错，因为解释器会把这里最后两个单词之间的空格认为是分隔符，于是发现set命令有多于两个参数，
从而报错。加入了'\'后，空格不被当作分隔符，'multiple space'被认为是一个单词(word)。
Tcl变量根据其结构的复杂程度分为“简单变量”和“数组变量”两类。
（1）简单变量
一个Tcl的简单变量包含两个部分：名字和值，其中名字和值都可以是任意字符串。不过为了更好的使用变量置换功能，变量名
最好按C\C++语言中标识符的命名规则命名。这是因为Tcl解释器在分析一个变量置换时，只把从＄符号往后直到第一个不是字母、数
字或下划线的字符之间的单词符号作为要被置换的变量的名字。例如:
set a 2
set a.1 5
set b $a.1
在最后一个命令行，我们希望把变量a.1的值付给b，但是Tcl解释器在分析时只把$符号之后直到第一个不是字母、数字或下划线
的字符(这里是'.')之间的单词符号(这里是'a')当作要被置换的变量的名字，所以Tcl解释器把a置换成2,然后把字符串“2.1”付给变量b。这
显然与我们的初衷不同。
当然，如果变量名中有不是字母、数字或下划线的字符又要用变量置换，可以用花括号把变量名括起来。例如：
set b ${a.1}
（2）数组变量
数组是一些元素的集合。Tcl的数组和一般编程语言中的数组有很大的区别。在Tcl中，不能单独声明一个数组，数组只能和数组
元素一起声明。数组中数组元素的名字包含两部分：数组名和数组中元素的名字，Tcl中数组元素的名字（下标〕可以为任何字符串。
例如：
set day(monday) 1
set day(tuesday) 2
（3）重用结构及其操作
1、string结构及其操作
因为TCL把所有的输入都当作字符串看待，所以TCL提供了较强的字符串操作功能
【format】
语法：format formatstring vlue value...
format命令类似于ANSIC中的sprintf函数，它按formatstring提供的格式，把各个value的值组合到formatstring中形成一
个新字符串，并返回。例如：
set msg [format "%s is %d years old" $name $age]
【scab】
语法：scan string formatsting varName varName ...
scan命令可以认为是format命令的逆，其功能类似于ANSI C中的sscanf函数。它按formatsting提供的格式分析string字
符串，然后把结果存到变量varName中,注意除了空格和TAB键之外，string 和formatsting中的字符和'%'必须匹配。例如：
scan "some 26 34" "some %d %d" a b
【regexp】
语法：regexp [switchs] [--] exp string [matchVar]\ [subMatchVar subMatchVar...]
regexp命令用于判断正规表达式exp是否全部或部分匹配字符串string，匹配返回1，否则0。
regexp可以设置一些开关（switchs〕，来控制匹配的具体方式，如：-nocase，-line等，其中-- 表示这后面再没有
开关（switchs〕了，即使后面有以'-'开头的参数也被当作正规表达式的一部分。
如果regexp命令后面有参数matchVar和subMatchVar，则所有的参数被当作变量名，如果变量不存在，就会被生成。
regexp把匹配整个正规表达式的子字符串赋给第一个变量，匹配正规表达式的最左边的子表达式的子字符串赋给第二个变
量，依次类推，例如：
regexp { ([0-9]+) *([a-z]+)} " there is 100 apples" total num word 1
puts " $total ,$num,$word"
【lindex】
语法：lindex list index
返回list的第index个(0-based)元素。
【lrange】
语法:lrange list first last
返回list的第first (0-based)到第last (0-based)元素组成的串,如果last的值是end。就是从第first个直到串的最后。
【linsert】
语法：linsert list index value [value...?]
返回一个新串，新串是把所有的value参数值插入list的第index个(0-based)元素之前得到。
【lappend】
语法：lappend varname value [value...?]
把每个value的值作为一个元素附加到变量varname后面，并返回变量的新值，如果varname不存在，就生成这个变
量。
【lreplace】
语法：lreplace list first last [value value ...]
switch [option] $x {
a -
b {incr t1}
c {incr t2}
default {incr t3}
}
其中可选参数option，表示进行匹配的方式。TCL支持三种匹配方式：-exact方式，-glob方式，-regexp方式,缺省情况表示-glob
方式。-exact方式表示的是精确匹配，-glob方式的匹配方式和string match 命令的匹配方式相同，-regexp方式是正规表达式匹配方式。
（2）循环语句
for init test reinit body
参数init是一个初始化脚本，第二个参数test是一个表达式，用来决定循环什么时候中断，第三个参数reinit是一个重新初始化
的脚本，第四个参数body也是脚本。如：
set b " "
for {set i [expr [llength $a] -1]} {$i>=0} {incr i -1} {
lappend b [lindex $a $i]
}
while的例子——假设变量 a 是一个链表，下面的脚本把a 的值复制到b：
set b " "
set i [expr [llength $a] -1]
while { $i>=0}{
lappend b [lindex $a $i]
incr i -1
}
foreach命令的两种形式：
1、foreach varName list body
第一个参数varName是一个变量，第二个参数list 是一个表(有序集合)，第三个参数body是循环体。
每次取得链表的一个元素，都会执行循环体一次。如：
set b " "
foreach i $a{
set b [linsert $b 0 $i]
}
2、foreach varlist1 list1 varlist2 list2 ... body
本语句是上一个的增强形式：可以有多个变量、列表对参与条件判断
发表于 2009-12-26 16:46:02
QQ好友和群
QQ空间
腾讯微博
腾讯朋友
收藏
淘帖
赞一下！
发表于 2009-12-26 16:47:42
