第2章 Tcl语言基础（上）

第2章：Tcl语言基础（上）——语法规则、变量与赋值、字符串操作、列表操作、数学运算

各位好，欢迎来到第二章。说实话，Tcl这门语言在EDA领域里，就像螺丝刀在工具箱里一样——看着不起眼，但真干活的时候离不开它。华大九天的工具链，底层脚本几乎全是Tcl写的。你写个自动化批处理，不懂Tcl？那基本等于开车不看仪表盘。

这一章我们啃的是基础中的基础。别嫌简单，我见过太多工程师，写脚本时变量名拼错、列表索引搞混，最后查bug查到崩溃。嗯，咱们把地基打牢，后面才能盖高楼。

本章核心知识点一览

Tcl语法规则：命令、参数、引号、花括号
变量与赋值：set、unset、变量替换
字符串操作：string命令全家桶
列表操作：list、lindex、llength、lappend
数学运算：expr表达式与运算符

2.1 Tcl语法规则——命令就是一切

Tcl的语法，说白了就一条规则：一切皆命令。你写的每一行代码，都是一个命令。命令后面跟参数，参数之间用空格隔开。

# 基本格式：命令 参数1 参数2 参数3 ...
puts "Hello, EDA World!"
set myVar 42
expr {2 + 3}

我个人习惯把Tcl的命令想象成「动词+宾语」的结构。动词是命令名，宾语是参数。你想想看，是不是很直观？

这里有个坑，我当年刚学的时候踩过——换行符就是命令结束符。如果你想把多个命令写在一行，用分号隔开：

set a 1; set b 2; puts $a

但我不建议这么写，除非你是在写一行脚本。可读性太差了，你回头自己都看不懂。

2.1.1 引号与花括号

这两个东西，是Tcl里最容易搞混的。我直接说结论：

双引号 ""：允许变量替换和命令替换。说白了，里面的$和[]会被解析。
花括号 {}：禁止任何替换。里面写啥就是啥，原样输出。

set name "Tom"
puts "Hello, $name"   ;# 输出：Hello, Tom
puts {Hello, $name}   ;# 输出：Hello, $name

我的经验：在写正则表达式或需要原样保留特殊字符时，一律用花括号。我在处理工艺文件路径时，经常遇到反斜杠和美元符号，用花括号能省掉一堆转义烦恼。

2.2 变量与赋值——set是万能钥匙

Tcl里变量不需要声明类型。你直接set一个值，它就活了。这跟Python有点像，但Tcl更「原始」一些。

set width 100
set cellName "AND2X1"
set libPath {/home/tech/gsclib045.lib}

读取变量用美元符号$：

puts "当前单元宽度为：$width"
set newWidth [expr {$width * 2}]

这里有个细节：$width是变量替换，[expr ...]是命令替换。Tcl会先做替换，再执行命令。这个顺序很重要，我后面讲表达式时会再提到。

删除变量用unset：

unset cellName
# 此时再访问 $cellName 会报错

注意：我曾经在写一个批处理脚本时，忘记unset一个临时变量，结果后面同名变量被覆盖，导致整个网表输出错了。嗯，变量作用域的问题，咱们后面章节会细讲。

2.3 字符串操作——string命令全家桶

EDA脚本里，字符串操作是家常便饭。解析文件名、拼接路径、提取子串……string命令几乎能搞定一切。

命令	功能	示例
string length	获取字符串长度	`string length "hello" → 5`
string index	获取指定位置的字符	`string index "hello" 0 → h`
string range	获取子串	`string range "hello" 1 3 → ell`
string first	查找子串位置	`string first "l" "hello" → 2`
string replace	替换子串	`string replace "hello" 1 3 "a" → hao`
string tolower/toupper	大小写转换	`string toupper "abc" → ABC`

举个实际例子。我在处理版图文件时，经常需要从文件名里提取工艺信息：

set filename "layout_tsmc28_metal1.gds"
set techName [string range $filename 7 12]
puts $techName  ;# 输出：tsmc28

你看，一行代码就把工艺节点提取出来了。要是用Python还得import re，Tcl直接搞定。

避坑指南：string index的索引从0开始。我曾经在写循环时，把索引写成从1开始，结果字符串第一个字符永远取不到。排查了半天才发现这个低级错误。

2.4 列表操作——EDA脚本的基石

列表在Tcl里太重要了。你想想看，一个网表里成千上万个单元，不就是个列表吗？一个工艺角列表、一组时序路径，全是列表。

创建列表很简单：

set cellList {AND2X1 OR2X1 INVX1 NAND2X1}
set pinList [list A B C D]

花括号和list命令都能创建列表。我个人习惯用list命令，因为更明确，不容易跟代码块混淆。

常用列表操作：

set myList {10 20 30 40 50}

# 获取长度
puts [llength $myList]   ;# 5

# 获取第3个元素（索引从0开始）
puts [lindex $myList 2]  ;# 30

# 追加元素
lappend myList 60
puts $myList             ;# 10 20 30 40 50 60

# 插入元素
set myList [linsert $myList 2 25]
puts $myList             ;# 10 20 25 30 40 50 60

# 替换元素
set myList [lreplace $myList 3 4]
puts $myList             ;# 10 20 25 50 60

这里有个技巧：lappend会直接修改原列表，而linsert和lreplace返回新列表，原列表不变。这个区别我当年搞混过，导致数据丢失。

我的习惯：在遍历列表时，用foreach命令，比用索引循环更安全、更可读。

foreach cell $cellList {
    puts "正在处理单元：$cell"
}

2.5 数学运算——expr表达式

Tcl的数学运算全靠expr命令。加减乘除、位运算、三角函数，全在expr里。

set a 10
set b 3

puts [expr {$a + $b}]   ;# 13
puts [expr {$a - $b}]   ;# 7
puts [expr {$a * $b}]   ;# 30
puts [expr {$a / $b}]   ;# 3（整数除法！）
puts [expr {$a / 3.0}]  ;# 3.3333（浮点数除法）

注意这个整数除法！我当年在计算版图面积时，用width / height，结果因为两个都是整数，算出来的长宽比全是0。排查了半天才发现是整数除法的问题。

解决办法很简单：让其中一个操作数变成浮点数。

set ratio [expr {$width / $height * 1.0}]

expr还支持更复杂的运算：

# 幂运算
puts [expr {2 ** 10}]   ;# 1024

# 取余
puts [expr {10 % 3}]    ;# 1

# 位运算
puts [expr {0xFF & 0x0F}]  ;# 15

# 比较运算（返回0或1）
puts [expr {$a > $b}]   ;# 1（真）
puts [expr {$a == $b}]  ;# 0（假）

重要提醒：expr表达式最好用花括号包起来。为什么？因为花括号禁止了变量替换，expr内部会自己处理变量替换，这样效率更高，也更安全。我曾经见过有人用双引号写expr，结果变量里有空格，直接报错。

2.6 综合小案例：计算一组时序路径的延迟统计

咱们把今天学的知识串起来，写一个实用的小脚本。假设你有一组时序路径的延迟值，想算一下最大值、最小值和平均值：

# 定义延迟列表（单位：ns）
set delayList {1.2 3.5 2.8 4.1 0.9 2.3 3.7}

# 初始化
set maxDelay [lindex $delayList 0]
set minDelay [lindex $delayList 0]
set sumDelay 0
set count [llength $delayList]

# 遍历列表
foreach delay $delayList {
    # 更新最大值
    if {$delay > $maxDelay} {
        set maxDelay $delay
    }
    # 更新最小值
    if {$delay < $minDelay} {
        set minDelay $delay
    }
    # 累加
    set sumDelay [expr {$sumDelay + $delay}]
}

# 计算平均值
set avgDelay [expr {$sumDelay / $count * 1.0}]

puts "路径延迟统计："
puts "  最大值：$maxDelay ns"
puts "  最小值：$minDelay ns"
puts "  平均值：[format {%.3f} $avgDelay] ns"

这个脚本虽然简单，但包含了变量赋值、列表操作、数学运算、条件判断等核心知识点。你在实际工作中，可以把它扩展成处理几百条路径的自动化脚本。

好了，这一章的内容就到这儿。Tcl的基础语法就像练武的扎马步，看着枯燥，但决定了你后面能走多远。下一章咱们继续深入，聊一聊控制流和过程定义——到时候就能写出真正的自动化工具了。

公众号:蓝海资料掘金营，微信deep3321

📚 课程目录