文章目录
实际脚本用例的讲解请看：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 a
return [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] #只读方式打开文件，产生文件标识f
while {[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也就无法找到对应的文件。
604
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
