第2章：Tcl语言基础（上）——语法规则、变量、列表、字符串操作、表达式

各位同学，欢迎来到Tcl语言基础的第一部分。

说实话，很多做EDA的工程师对Tcl又爱又恨。爱的是它太灵活了，恨的也是它太灵活了。我刚开始接触Tcl时，总觉得这语言怎么跟别的语言长得不一样？后来用顺手了才发现，Tcl的设计哲学其实很纯粹——一切皆字符串。

今天咱们就把Tcl的底裤扒干净，从语法规则到变量、列表、字符串操作，再到表达式，一个一个过。你想想看，搞懂了这些，写布局布线的脚本就跟喝水一样简单。

2.1 Tcl语法规则——先立规矩

Tcl的语法规则其实就三条，我总结的：

• 命令 + 参数：Tcl里每行都是一个命令，后面跟空格分隔的参数。
• 换行或分号：一条命令结束，要么换行，要么用分号。
• 引用机制：双引号、花括号、反斜杠，各有各的脾气。

举个例子，你写个简单的：

puts "Hello, EDA World!"
set a 5
puts $a

第一行是打印，第二行是赋值，第三行是打印变量值。嗯，这里要注意：$a是取变量值，没有$就是字符串本身。我在项目中遇到过新手把$忘了，结果打印出来就是个字母a，排查了半天。

2.2 变量——存东西的盒子

Tcl的变量分两种：普通变量和数组变量。说白了，普通变量就是单个盒子，数组变量就是一排带标签的盒子。

2.2.1 普通变量

用set命令赋值，用$取值：

set design_name "top_chip"
set version 2.0
puts "当前设计：$design_name，版本：$version"

我个人习惯给变量名加个前缀，比如g_表示全局变量，l_表示局部变量。在大型脚本里，这能省去不少查错的时间。

2.2.2 数组变量

数组在Tcl里其实是个关联数组，用数组名(键)来访问：

set cell_area(AND2) 12.5
set cell_area(OR2) 15.3
set cell_area(NAND2) 10.8

puts "AND2的面积是：$cell_area(AND2)"

我曾经用数组来存所有标准单元的延迟信息，键是单元名+输入转换时间+输出负载，值就是延迟。这样查起来比列表快多了。

2.3 列表——串起来的珠子

列表是Tcl里最常用的数据结构。说白了，就是把一堆东西用空格串起来。注意，Tcl的列表不像Python那样有方括号，它就是一堆用空格分隔的元素。

2.3.1 创建列表

set cells {AND2 OR2 NAND2 NOR2}
set pins [list A B C D]
set mixed {12 "hello" {inner list}}

这里{}和[list]都能创建列表。区别在于：{}里的内容不会做变量替换，[list]会。你想想看，如果你要存一个包含$符号的字符串，用{}就安全多了。

2.3.2 列表操作

常用的列表操作命令有这些：

命令	作用	示例
lindex	取第N个元素	lindex $cells 0 → AND2
llength	列表长度	llength $cells → 4
lappend	追加元素	lappend cells INV
linsert	插入元素	linsert $cells 1 BUF
lreplace	替换元素	lreplace $cells 0 0 INV
lsearch	搜索元素	lsearch $cells "NAND2" → 2
lsort	排序	lsort $cells

我在项目中遇到过一个问题：用lappend往列表里加元素时，如果元素本身包含空格，一定要用list命令包一下，否则会被拆成多个元素。避坑指南：永远用list命令创建包含空格的元素。

2.4 字符串操作——文本处理的核心

EDA脚本里，字符串操作占了半壁江山。解析网表、处理报告、生成脚本，哪样都离不开字符串。

2.4.1 字符串长度与索引

set name "top_chip_v1.0"
puts [string length $name]    ;# 输出：14
puts [string index $name 0]   ;# 输出：t
puts [string index $name end] ;# 输出：0

end关键字表示最后一个字符，这个设计很贴心。我经常用string index $name end-2来取倒数第三个字符。

2.4.2 字符串匹配

用string match做通配符匹配：

if {[string match "top_*" $name]} {
    puts "这是顶层设计"
}

*匹配任意多个字符，?匹配一个字符。我在写布局脚本时，经常用这个来过滤单元名称，比如只处理以DFF_开头的触发器。

2.4.3 字符串替换与分割

set path "/design/top/chip.v"
set new_path [string map {"/" "_"} $path]
puts $new_path    ;# 输出：_design_top_chip.v

set parts [split $path "/"]
puts $parts       ;# 输出：{} design top chip.v

string map是做字符替换的利器，split是按分隔符拆成列表。这两个命令我几乎每天都要用。

2.4.4 字符串格式化

用format命令可以像C语言的printf一样格式化字符串：

set width 12.3456
set height 7.8901
puts [format "单元尺寸：%.2f x %.2f" $width $height]
;# 输出：单元尺寸：12.35 x 7.89

我个人习惯用format来生成报告，对齐列数据特别方便。比如：

puts [format "%-10s %8.2f %8.2f" "AND2" 12.5 15.3]
puts [format "%-10s %8.2f %8.2f" "OR2" 10.2 13.1]

2.5 表达式——做数学运算

Tcl的表达式用expr命令来求值。注意，Tcl本身不直接做数学运算，你得告诉它：我要算东西了。

2.5.1 基本运算

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（浮点除法）

嗯，这里要注意：整数除法会截断。我在项目中遇到过因为整数除法导致面积计算偏差的问题，后来统一用expr {double($a)/$b}来避免。

2.5.2 比较运算

if {[expr {$a > $b}]} {
    puts "a大于b"
}
if {[expr {$a == 10}]} {
    puts "a等于10"
}

比较运算返回0（假）或1（真）。Tcl里任何非0值都视为真，0视为假。这个跟C语言一样。

2.5.3 位运算与逻辑运算

set mask 0xFF
set value 0x0A
puts [expr {$value & $mask}]   ;# 按位与
puts [expr {$value | 0xF0}]    ;# 按位或
puts [expr {$value << 2}]      ;# 左移2位

puts [expr {$a > 5 && $b < 5}] ;# 逻辑与
puts [expr {$a > 5 || $b < 5}] ;# 逻辑或
puts [expr {!($a > 5)}]        ;# 逻辑非

位运算在EDA里用得不多，但处理寄存器配置时偶尔会用到。逻辑运算在条件判断里是家常便饭。

2.6 综合示例——一个实用的脚本片段

最后，我给大家展示一个我在项目中实际用过的脚本片段。它读取一个网表文件，提取所有标准单元的名称和面积，然后按面积排序输出：

# 读取网表文件
set fp [open "netlist.v" r]
set netlist [read $fp]
close $fp

# 提取单元实例
set cells {}
foreach line [split $netlist "\n"] {
    if {[string match "*cell (*" $line]} {
        set cell_name [lindex $line 1]
        set cell_type [lindex $line 2]
        lappend cells [list $cell_name $cell_type]
    }
}

# 假设有一个面积查找表
array set area_lut {
    AND2  12.5
    OR2   15.3
    NAND2 10.8
    NOR2  14.2
    INV   8.1
    BUF   9.5
}

# 计算总面积并排序
set total_area 0.0
set cell_areas {}
foreach cell $cells {
    set name [lindex $cell 0]
    set type [lindex $cell 1]
    if {[info exists area_lut($type)]} {
        set area $area_lut($type)
        set total_area [expr {$total_area + $area}]
        lappend cell_areas [list $name $type $area]
    }
}

# 按面积降序排序
set cell_areas [lsort -real -decreasing -index 2 $cell_areas]

# 输出报告
puts "单元面积报告"
puts [string repeat "-" 40]
puts [format "%-15s %-10s %8s" "单元名称" "类型" "面积"]
puts [string repeat "-" 40]
foreach cell $cell_areas {
    puts [format "%-15s %-10s %8.2f" \
        [lindex $cell 0] [lindex $cell 1] [lindex $cell 2]]
}
puts [string repeat "-" 40]
puts [format "总面积：%.2f" $total_area]

这个脚本用到了我们今天讲的所有知识点：变量、列表、字符串操作、表达式。你想想看，如果不用Tcl，用其他语言写这个功能，代码量至少翻倍。

好了，Tcl语言基础的上半部分就到这里。下一章咱们继续聊Tcl的控制流、过程定义和文件操作。这些东西在写自动化脚本时，一个都跑不掉。

记住我今天说的：Tcl没那么神秘，它就是一门用字符串搞定一切的脚本语言。用熟了，你会发现它比Python还顺手——至少在EDA领域是这样。