实际脚本用例的讲解请看：tcl脚本用于questasim回归测试

介绍

TCL是一种解释执行的脚本语言。提供了通用的编程能力：支持变量、过程和控制结构；同时TCL还拥有一个功能强大的固有的核心命令集。

TCL的解释器是用一个C\C++语言的过程库实现的，某种意义上，可以将TCL看做一个C库，每个应用程序都可以根据自己的需要对TCL语言进行扩展。

扩展后的TCL语言将继承TCL核心部分的所有功能，包括核心命令、控制结构、数据类型、对过程的支持等。

学习核心：

• TCL脚本执行依赖于解释器（逐行执行，没有编译这回事）；
• TCL有效命令行以命令+字符串（结合空间间隔符形成）；
• 明白**置换（ $ 、[ ]、 \ ）和引用（ " " 、{ } ）**的差别与联系；
• 明白命令eval、expr、source、exec的差别；
• 掌握 { * } 配合glob等返回list后的操作。

置换

• 一个TCL脚本可以包含一个或多个命令。命令之间必须要用换行符或者分号隔开，例如：

  # 以下均合法
  set a 1  #设置a的值为1
  set b 2	 #设置b的值为2
  set a 1;set b 2
  set a 	 ##读取a的值，结果为1
  

• tcl的每一个命令包含一个或几个单词，第一个单词代表命令名，另外的单词则是这个命令的参数，单词之间必需用空格或Tab隔开

普通置换

TCL解释器在分析命令时，会把所有的命令当做字符串，例如

%set x 10  		#定义变量x,并把x的值赋值为10，这个10也是字符串，而不是我们认为的int等类型
%set y x+100  	#定义变量y,并把y的值赋值为字符串 x+100 ，但注意并非是 110 或者10+100，因为把x当做字符串来看待

变量置换

变量置换有一个 $ 符号标记，如下：

%set x 10 
%set y $x+100   #此时y为字符串 10+100，因为x被置换成了10
#由此我们发现，还不是我们想要的y=110的结果

命令置换

命令置换是由符号 [ ] 括起来的命令及参数，

%set x 10 
%set y [expr $x+100]	#此时y=110

注解：

• 当TCL解释器。从左到右遇到第一个"[" 时，就会把随后的expr当做一个命令，从而激活expr对应的c/c++过程。
• 因为中括号[ ]的存在，tcl会把中括号里面的expr $x+100当做一个新的运算来计算，

反斜杠 \ 置换

类似其他语言中的转义字符，在单词符号中插入如换行符、空格、[ 、$等作为特殊符号时，就需要用到 **\ **符号来置换。

%set msg multiple\ space   #添加了一个空格，结果为“multiple space” 

花括号{ }和双引号“”

除了使用反斜杠以外，还可以使用花括号{ }和双引号"",也可以将一些具有命令作用的字符作为特殊字符使用。

双引号""

• tcl解释器对于双引号""中的各种分隔符将不做处理，但是对换行符以及 $ 和 [ ] 两种置换符会照常处理

%set x 10 
%set y "$x ddd"   #结果为“10 ddd”

花括号{ }

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

%set a 2
%set a.1 4 		# a.1的值为4
#我们期待  a.1这个变量的值为4，赋值给b,如何操作？
%set b $a.1		# 设置b为2.1，结果不是我们期待的
%set b ${a.1}	# b的值为4，是我们期待的 %set a {kdfh jk} #设置a为“kdfh jk”
%set a 			#读取a的值，结果为“kdfh jk”

变量

数组

在TCL中，不能单独声明一个数组，数组只能和数组元素在一起声明。数组中，数组元素的名字包含两个部分：**数组名和数组中元素的名字。**TCL中数组元素的名字可以为任何字符串

%set day(monday) 1  #day是数组名，Monday是数组中的索引值，Monday对应的值为1
%set day(tuesday) 2

相关命令：

• unset会从解释器中删除变量，后面跟任意多个参数，每个参数是一个变量名（包括数组或数组元素）

% unset a b day(monday)

• append命令可以将文本追加到一个变量的后面，也就是增加字符串的长度

% set txt hello
% append txt "!world!"  # txt的值为“hello！world!”

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

%set b 2;incr b 3      #b的结果为5
## 相当于  %set a 2;$set b [expr $a+3]

集合

集合（list）是由一堆元素组成的有序集合。list可以嵌套定义，list中的每个元素可以是任意字符串或list。

语法：

• list ？ value value…
• concat list list …

% list 1 2 {3,4}   # 元素有三个 1 ，2 ，{3,4}
% concat {1 2 3} {4 5 6} # 整合数组 ，{1 2 3 4 5 6}

list相关的命令：

• **lindex **list index 返回 list 中索引值对应的值，index从0开始计
• llength list 返回list中的元素个数
• linsert list index value value… 在list中指定index出插入元素

% lindex {1 2 {3 4}} 2  #返回list的第三个元素，结果为3 4
% llength {1 2 {3 4}}   #返回list中的元素个数
% linsert {1 2 3 4} 1 7 8  #在索引为1处插入 7 8 两个元素，结果为{1 7 8 2 3 4}

控制流

if 命令

• 语法：if { test1} {body1} elseif {test2} {body 2} …
• TCL先把test1当做一个表达式求值，如果值非0，则把body1当做一个脚本执行并返回所得值。否则会把Test2当做一个表达式，如果值非0，则把body2当做一个脚本执行。…

注意：

• "{"必须要在上一行写，不能换行。
• elseif是连着写的
• if 和 elseif 与 { 之间要有一个空格，否则解释器会把 if{ 当做一个整体。

if {$x>0} {
...} elseif {$x==1} {
...} elseif {$x<0} {
...} 

while命令

• 语法：while test body
• 参数test是一个表达式，body是一个脚本。如果表达式值非0，就运行脚本，直至表达式为0 才停止循环。此时while中断并返回一个空字符串

# 把list a中的数据赋值给了b
set b "　"
set i [expr[llength $a] -1]
while {$i>=0} {
lappend b [lindex $a $i]
incr i -1
}

for循环命令

• 语法： for init test reinit body
• 参数init是一个初始化脚本，第二个参数test是表达式，用来决定循环什么时候中断。第三个参数reinit是一个重新初始化的脚本，第四个参数body也是脚本，代表循环体。

set b "　"
for {set i [expr [llength $a -1] -1]} {$i>=0} {incr i -1} {lappend b [lindex $a $i]}
# a是一个list 

foreach循环命令

• 语法：foreach varName list body
• 第一个参数varName是变量，第二个是一个list，第三个body是一个循环体。
• 每次取得链表list中的一个元素，就执行一次循环

set b "　"
foreach i $a {
set b [linsert $b 0 $i]
}
# a是一个list 

switch命令

相当于case语句

%switch $x {
b {incr t1}
c{incr t2}
}

其他命令

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

%source e:/tcl/hello_word.tcl 

• eval命令：构造和执行TCL脚本命令。可以接受一个或多个参数，然后把所有的参数以空格隔开，组合到一起成为一个脚本，最后对这个脚本求值。

%eval set a 2;set b 4

过程

TCL支持过程的定义和调用，在TCL中，过程可以看做是用TCL脚本实现的命令，效果与TCL固有命令相似。

proc 命令

由proc 命令来对过程定义，相当于函数一样的作用

% proc add {x y} {expr $x+$y}
% add 1 2 	# 调用add过程，传递两个参数
# 结果为3

局部变量和全局变量

用global在proc中声明变量来自外部，引用外部变量。

% set a 4 
% proc sample {x} {global a  #用global声明，这个变量来自外部，即全局变量incr areturn [expr $a+$x]
}
% sample 3 # 值为8
% set a  # 值为5

字符串操作

format命令

语法：format formatstring value value …

按照formatstring提供的格式，把各个value的值组合到formatstring中形成新字符串返回

%set name lisa
%set age 20
%set msg [format "%s is %d years old" $name $age]

scan命令

语法：scan string format varName varName …

可以认为是format命令的逆命令。按照format提供的格式分析string字符串，然后把结果存到变量varName中。

注意：除了空格和TAB键之外，string和format中的字符和百分号 % 必须匹配。

% scan "some 26 34" "some %d %d" a b
%set a	#26
%set b  #34

regexp命令

regexp命令用于判断正则表达式exp是否全部或部分匹配字符串，匹配返回1 ，否则返回0。

字符	意义
.	匹配任意单个字符
^	表示从头到尾进行匹配
$	表示从末尾进行匹配
[chars]	匹配字符集合chars中给出的任意字符
*	对*前门的项进行0次或多次匹配
+	对+前门的项进行1次或多次匹配

文件访问

注意：在tcl中，表示文件目录结构时使用的是**“ / ”**，而不是反斜杠“\”

open命令

• 语法： open name access
• access方式打开name文件，返回字符串，用于标识打开的文件。
• 当调用别的命令（如：gets,puts,close）对文件进行操作时，都可以使用这个文件标识。
• stdin.stdout,stderr，分别对应标准输入、标准输出和错误通道

access方式式	作用
r	默认的打开方式。只读方式打开，且文件必须已经存在。
r+	读写方式，且文件已经存在
w	只写方式，如果文件存在则情况文件内容，文件不存在就新建一个空文件
w+	读写方式，如果文件存在则情况文件内容，文件不存在就新建一个空文件
a	只写方式，文件必须存在，并把指针指向文件尾
a+	读写方式，如果文件存在，把指针指向文件尾。文件不存在就新建一个空文件

gets命令

• 语法：gets field varname
• 读field标识的文件下一行，忽略换行符。
• 如果命令有varName就把该行赋给它，并返回该行的字符数
• 如果没有varname,返回文件的下一行作为命令结果
• 如果到了文件的结尾，就返回空字符串

puts命令

• 语法：puts nonewline field string
• puts命令把string写到field中
• 如果没有 nonewline开关的话，就添加换行符

proc tgrep {pattern filename} {set f [open $filename r]  #只读方式打开文件，产生文件标识fwhile {[gets $f line]} {  #获取文件中的每一行，一行一行的拿if {[regexp $pattern $line]} {  #判断这一行符不符合正则表达式,也就是我们所期望的puts stdout $line #如果符合，就把这一行输出在标准输出端stdout}}close $f
}

flush field

把缓冲区的内容写到field标识的文件中，命令返回值为空。

管理目录的指令包括：

• pwd 返回当前目录的完整路径
• cd 使用一个参数，把工作目录改变为参数提供的目录
• glob 和 file 用来操作文件或者获取文件信息

glob命令

• 语法：glob switches pattern pattern…
• glob命令string match命令的匹配规则

# 找到所有以.v和.sv结尾的文件
%glob *.v *.sv  

file命令

语法：file switches pattern pattern…

假如我想删除所有.sv的文件，怎么操作？

file delete *.sv   #不生效，因为file不识别*通配符
#采用一下的方式
file delete {*}[glob *.sv]
#方法二
eval file delete [glob *.sv]

{*} 的存在，是把列表元素作为独立参数提供给指令。比如你glob *.sv返回的是多个文件，文件与文件字符串之间会有空格，tcl会把glob *.sv返回的所有文件名当做一个文件，这样file delete也就无法找到对应的文件。