Tcl语言入门（一）基本知识
之前看过一个华为tcl的手册，看过数字集成电路静态时序分析这门课，加上在时序分析中用过一些，趁着双十一买了高亚军老师新出的《vivado/Tcl零基础入门与案例实战》。
Tcl是一门脚本语言，同时也是跟python类似的解释性语言，所谓的解释性语言就是执行时候顺序解释执行，而不需要编译，当然它也比较慢。同时，tcl语言数据类型与其他语言不同，它默认数据类型为string类。
安装好vivado后会默认带一个vivado tcl shell，可以直接用这个来跑代码。
也可以按照下面的方式来跑Tcl脚本（引用来自于数字集成电路静态时序分析），下面的博客都是在wish.exe上面跑的。
1.Tcl基础知识
1.1 Tcl的换行以及注释
Tcl的常用写法就是一行代码一个指令，但是也可以在一行写多个指令，中间用;分开，但是加上；的语句执行结果不会被打印（类似于Matlab）。
(System32) 1 % set x 1
1
(System32) 2 % set x 2
2
(System32) 3 % set x 1;set x 2
2
Tcl在注释时候需要在命令的第一个字符位置，分号可以表示一条指令的结束，所以注释#可以出现在两个位置，一行的开始，分号的后面。多行注释这可以使用\。
我们也可以发现如果分号右边是注释，它还是会返回分号左边指令的结果，所以我认为加上；的一行语句会打印最后一个有效的指令，这里注释没有意义，所以会打印最后一个指令输出结果为1。
如果注释大段，有三种方式：if命令、花括号、proc过程。
(System32) 1 % #一行的开始
(System32) 2 % set x 1;#分号的后面
1
(System32) 3 % #123 \
> 231
(System32) 4 % #if方法
(System32) 5 % if {0} {set x 10 ; set y 20;}
(System32) 6 % #花括号
(System32) 7 % set commment {set x 20; set y 20;}
set x 20; set y 20;
(System32) 8 % #proc过程,类似于函数，只有被调用才会出现。
(System32) 9 % proc set_commment{}{set x 20; set y 10;}
1.2 Tcl的变量和置换
Tcl对于变量名没有严格要求，通过set来赋值，对于大小写敏感。
set <变量名> <变量值>
incr指令也能用来赋值
incr <变量名> <变量值，若缺省变量名初始值为1，否则加上变量值>
其中变量名以及变量值的数值都必须为整数
Tcl报错会将错误信息保存在全局变量errorInfo中
puts $errorInfo
打印错误信息的位置
(System32) 1 % set x 1
1
(System32) 2 % incr y
1
(System32) 3 % incr y 1
2
(System32) 4 % incr y -1
1
(System32) 5 % incr y 0.1
expected integer but got "0.1"
(System32) 6 % puts $errorInfo
expected integer but got "0.1"
(reading increment)
invoked from within
"incr y 0.1"unset <变量名>
取消定义的变量，如果未定义会报错
info exists <变量名>
判断变量是否已经定义，若存在返回1，否则0
info tclversion
返回tcl版本
info hostname
返回主机名
(System32) 1 % set x 1
1
(System32) 2 % info exist x
1
(System32) 3 % unset x
(System32) 4 % unset y
can't unset "y": no such variable
(System32) 5 % info exist y
0
(System32) 6 % info tclversion
8.6
(System32) 7 % info hostname
laptop-5bsbjpik
变量的置换，时刻记住tcl里面数据类型以string为主，set x y并不会把y的变量值赋值给x，而是把y赋值给了x，如要一个$来获得y的变量值，即 set x $y，就会把y的变量值赋值给x，这就类似于c++里面的指针，可以类比y是一个对于它数值的指针，通过增加一个$用来访问指针对应地址空间的数值大小。
此外，Tcl对于变量名，会认为-以及.当做字符串分隔符来用，这个时候可以把变量名用{}括起来来避免报错。
append <变量名> <变量值>
这就相当于string的加号，直接在数值后面增加新数值位数
(System32) 1 % set x 1
1
(System32) 2 % set y x
x
(System32) 3 % set y $x
1
(System32) 4 % set a-b 1
1
(System32) 5 % set z $a-b
can't read "a": no such variable
(System32) 6 % set z ${a-b}
1
(System32) 7 % set a.b 1
1
(System32) 8 % set z $a.b
can't read "a": no such variable
(System32) 9 % set z ${a.b}
1
(System32) 10 % append z 21
121$在同一层级下执行时，只会发生一次置换(最右边的$)。 对于$$var,有两种方式解决，一种是通过subst指令，一种是通过[]（[]用于命令置换）。
(System32) 1 % set x 1
1
(System32) 2 % set y x
x
(System32) 3 % puts $$y ;#只执行最右边的$y
$x
(System32) 4 % subst $$y ;#方法一，用subst
1
(System32) 5 % puts [set $y] ;#方法二，用[]
1
(System32) 6 % puts [set [set y]] ;# $y等价于[set y]
1[ ]用于命令置换,通常与expr一起配合使用，表示将执行结果以表达式形式返回。
(System32) 1 % set a 1
1
(System32) 2 % set b [$a*$a]
invalid command name "1*1"
(System32) 3 % set b [expr $a*$a]
1反斜线置换\主要用于被当成特殊字符的换行符、空格、"["、"$"等，相当于c++字符串里面的\。
(System32) 1 % set a \$a
$a
(System32) 2 % set b a[x]
invalid command name "x"
(System32) 3 % set b a\[a\]
a[a]
(System32) 4 % set a \\
\
(System32) 5 % set a \b
(System32) 6 % set a \\b
\b
Tcl的置换只有两条规则，一是解析指令从左到右扫描一次，二是置换只会发生一层（即$$a只会置换右边的$a,左边的$被保存下来了）。
1.3 Tcl的{}和" "
{ }里面的置换可能会被阻止（为什么是可能？如果是用来进行置换操作会阻碍里面的置换，但是如果用来做界限符比如if、循环语句、switch语句、数学表达式则不需要阻止）；
“ ”则不会被影响。
同时使用时，最外层的符号决定一切！
(System32) 1 % set b "you are a {$a}"
you are a {1}
(System32) 2 % set b {you are $a "$a" }
you are $a "$a" 1.4 总结
| set a 1 | 赋值a=1 |
| incr a 1 | a=a+1 |
| incr a | a=1 |
| puts $errorInfo |
打印错误信息的位置 |
| unset a |
取消定义的变量a，如果a未定义会报错 |
| info exists a | 判断变量是否已经定义，若存在返回1，否则0 |
| info tclversion |
返回tcl版本 |
| info hostname |
返回主机名 |
| append a 1 |
若a=1，现在a=11 |
| $$y | 若y=1,则返回$1 |
| subst $$y | 执行两次$ |
| puts "Hello World" | 打印Hello World |
| set a [expr $c*$c] | 若c=2，将执行结果4，以表达式返回给a |
参考
[1]vivado/Tcl零基础入门与案例实战
[2]数字集成电路静态时序分析