码迷,mamicode.com
首页 > 其他好文 > 详细

【转】TCL语法简介

时间:2018-05-05 23:02:53      阅读:179      评论:0      收藏:0      [点我收藏+]

标签:跳出循环   精确   求值   设置   变量   []   常见   表达式   绑定   

1,脚本构成

 

 

 

set a 2
set b 3
//
set a 2;set b 3

 

TCL脚本可以包括多个命令,命令间使用换行符或者分号分开,一个命令使用空格分开命令、变量等其他参数。

 

2,置换

 

  • 变量置换

 

  

 

set c $a+$b //c = a+b=2+3

 

使用美元符号$进行变量置换,上式中c=2+3而不是5,要让c=5需要使用命令置换。

 

  • 命令置换

 

  

 

set c [expr $a+$b]

 

当使用[]时,括号内第一个字符会当做命令,后续的作为命令参数,expr命令用于进行表达式求值。对求值结果进行返回并赋值给c。

 

  • 反斜杠\置换

 

\使得特殊字符失去特殊含义

 

set msg money\ \$3333

 

使用使用\,上述空格不会被当做命令间字符分割处理,$也不会当做变量置换。

 

  • 双引号“”与花括号{}

 

使用双引号“”和花括号{}也可以使得解释器将分隔符置换符等特殊字符当做普通字符。“”只是对分割符不处理,对换行符、变量置换$、命令置换依然会处理

 

set y "$a xxx" //y -> 2 xxx

 

使用花括号所有特殊字符都变成普通字符

 

set y {/n$x [expr 10 +100]} //y->/n$x [expr 10 +100] 

 

3,注释

 

行首的‘#’符开始表示该行为注释。‘#‘必须出现在TCL解释器期望命令的第一个字符。因此‘#‘出现在行首及‘;‘后后面内容才能当做注释。

 

# this is a comment
set msg "hello world!" ;#this is another comment
set msg2 "nice day!" #error,this is not a comment

 

4,变量

 

TCL变量由名字和值构成,名字和值均可以是任意字符。要注意的是‘$’进行变量置换时是值得第一个不是字母、数字、下划线的字符之间的单词符号作为被置换变量名。使用set命令来设置变量,unset 命令取消变量。

 

技术分享图片
set a 2
set a.1 4
set b $a.1
set c ${a.1}
# b=2.1;c=4
技术分享图片

 

TCL的数组有点向python的字典,数组下标可以是任意字符串。

 

set day(monday) 1
set day(tuesday) 2
set b $day(monday);#b=1

 

unset删除变量

 

unset a b day

 

5,表达式
TCL支持和C语言类似的运算符,和C类似的操作数,0777//八进制,0xff//16进制,8e10//8的10次方,和C语言一样,TCL也内置了很多数学函数。

 

6,列表list

 

列表是TCL重要的数据结构。list表示一堆元素的集合,元素可以是任意字符,包括list。

 

{}
{1 2 3 4 5}
{1 23 3 {4 5}}

 

1)list使用list命令生成列表,list 1 2 3 4

 

2)使用concat list list...合并两个或多个列表

 

3)lindex list index 返回list第index个元素,从0开始计算。

 

4)llength list 返回list的元素个数

 

5)linsert list index value value...返回新list,新list是把所有value插入到list第index个元素之前

 

6)lreplace list first last value value...返回新list,把list第first个到last个元素用value参数替换,没有value参数则表示删除。

 

7)lrange list first last 返回list第first到last个元素组成的串。last 为end则返回到串末

 

8)lappend varname value value 把每个value附加到varname后面。

 

9)lsearch -exact -glob -regexp list pattern 返回第一个匹配的元素索引,找不到则返回-1。-exact、-glob、-regexp是可选的3中模式匹配技术。

 

-exact表示精确匹配;-glob和string match命令的匹配方式相同,-regexp表示正规表达式匹配。

 

10)lsort options list 对list排序,通过options指定排序方式,有-ascii:缺省方式,按照ASCII字符顺序排序,-dictionary,按照字典顺序,字典顺序不考虑大小写,数字被当做整数排序。-integer,将list元素转换成整数,按照整数排序,-real,转换成浮点数排序;-increasing升序,-decreasing降序。-command cmd 按照cmd命令对元素一一比较后给出排序结果。

 

11)split string splitchar 按照splitchar对string进行分割,返回分割后的list

 

12)join list joinstring 将list元素合并到字符串,中间以joinstring分开,缺省joinstring为空格。

 

7,控制流

 

和c语言类似,支持常见的控制流,if,switch,while,for,foreach。foreach 可以对list进行很好的遍历。

 

技术分享图片
if {$x>0}{
    do_something;
}elseif{$x==0} {

...
}else{
    do_anotherthing;
}
    
技术分享图片

 

使用{}对语句块进行分割以及条件表达式测试,第一行最后的{必须放在上一行,否则TCL会认为if命令已经结束,而将行首的{当做命令从而导致错误。

 

‘if {$x>0}‘if与{间有空格。

 

switch options string {pattern body pattern body} //options可以指定匹配方式-exact,-glob(default),-regexp

 

技术分享图片
switch $x {
a -
b {incr t1}
c {incr t2}
default {incr t3}
}
技术分享图片

 

while test body

 

技术分享图片
set i [expr [llength $a] -1]
while { $i>=0}{
lappend b [lindex $a $i]
incr i -1
} 
技术分享图片

 

for init test reinit body

 

for {set i [expr [llength $a] -1]} {$i>=0} {incr i -1} {
lappend b [lindex $a $i] }

 

foreach varnem list body

 

set x {}
foreach {i j} {a b c d e f} {
lappend x $j $i
} 

 

和C类似,TCL提供了break,continue命令用于跳出循环。
source命令,TCL提供source命令来调用和执行其他的tcl脚本,source /home/xxx/scripts/scripts1001.tcl

 

8,函数定义

 

TCL使用过程proc来进行C类似的函数定义,使用proc可以实现一些自定义的命令,其用法和内置命令一样。

 

proc add {x y } {expr $x+$y}
add 1 2 ;# result is 3

 

proc内部可以使用global声明一个全局变量,即该变量在proc体外定义,声明global后,可以在proc内部对全局变量进行访问。
应用upvar,使用upvar实现对一个变量的引用,upvar othervar myvar,一旦实现引用的绑定,对myvar的修改都将对应到othervar上去。 

 

【转】TCL语法简介

标签:跳出循环   精确   求值   设置   变量   []   常见   表达式   绑定   

原文地址:https://www.cnblogs.com/houxiliang/p/8996384.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!