3. Tcl语言基础（下）：控制流、过程定义与文件I/O

好，咱们接着聊。上一节我们把Tcl的变量、列表和字符串讲透了。这一节，我带你搞定控制流、过程定义和文件读写。这三样东西，是脚本自动化的骨架。

你想想看，一个脚本如果只会从上往下执行，那跟流水账有什么区别？真正的自动化，是要能判断、能循环、能复用、能读写数据的。嗯，这就是我们今天要啃的硬骨头。

3.1 条件判断：if 与 switch

先说 if。Tcl的 if 语法有点特别，它的花括号位置很讲究。我个人习惯把左花括号放在上一行的末尾，这样看起来紧凑。

set temperature 85

if {$temperature > 80} {
    puts "温度过高，需要降频"
} elseif {$temperature > 60} {
    puts "温度正常，继续工作"
} else {
    puts "温度偏低，性能可以拉满"
}

这里有个坑，我刚开始学的时候踩过。注意看，if 后面的条件表达式，花括号不能省略。如果你写成 if $temperature > 80 {，Tcl会报错。为什么？因为花括号在这里起到了延迟求值的作用，让 if 命令自己来解析表达式。

我曾经在写一个自动布线脚本时，忘了给条件加花括号。结果脚本跑起来，条件永远为真，所有走线都被强制拉到了顶层。排查了整整两个小时，才发现是这个问题。嗯，从此以后我对花括号格外敏感。

再说 switch。当你有多个分支要判断时，switch 比一长串 elseif 清爽得多。

set layer "M2"

switch $layer {
    "M1"   { puts "选择金属层1，线宽建议0.1um" }
    "M2"   { puts "选择金属层2，线宽建议0.2um" }
    "M3"   { puts "选择金属层3，线宽建议0.4um" }
    "VIA"  { puts "通孔层，注意对齐规则" }
    default { puts "未知层，请检查" }
}

我个人习惯用 switch -exact 做精确匹配。如果你需要做通配符匹配，可以用 switch -glob。比如匹配所有以 "M" 开头的层名。

3.2 循环：foreach 与 while

循环是自动化的灵魂。没有循环，你就得手动处理每一个单元，那跟用记事本画版图有什么区别？

先说 foreach。这是我最常用的循环命令，没有之一。它遍历列表，把每个元素依次赋给变量。

set cell_list {AND2 OR2 INV NAND2 NOR2}

foreach cell $cell_list {
    puts "正在处理单元: $cell"
    # 这里可以调用布局命令
    # place_cell -name $cell -location {x y}
}

foreach 还有一个高级用法，可以同时遍历多个列表。我在项目中遇到过需要同时处理单元名称和坐标的情况，这个特性帮了大忙。

set cell_names {AND2 OR2 INV}
set cell_x     {100 200 300}
set cell_y     {50  60  70}

foreach name $cell_names x $cell_x y $cell_y {
    puts "放置 $name 在位置 ($x, $y)"
}

再说 while。它适合你不知道循环次数的情况。比如等待某个条件满足。

set iteration 0
set max_iterations 100

while {$iteration < $max_iterations} {
    puts "优化迭代第 [expr {$iteration + 1}] 轮"
    
    # 模拟优化过程
    set improvement [expr {rand()}]
    if {$improvement < 0.01} {
        puts "收敛了，停止迭代"
        break
    }
    
    incr iteration
}

避坑指南：写 while 循环时，一定要确保循环条件最终会变成假。否则就是死循环，你的EDA工具会卡死。我见过同事的脚本因为忘了写 incr，让服务器跑了整整一个周末。

另外，break 用于跳出整个循环，continue 用于跳过本次循环的剩余部分，直接进入下一次。这两个命令在复杂循环中非常有用。

3.3 过程定义：proc

写脚本最怕什么？重复代码。一段逻辑在脚本里出现三次以上，你就该考虑把它封装成过程了。Tcl里用 proc 定义过程。

proc calculate_wire_delay {length width layer} {
    # 根据工艺参数计算线延迟
    set r_per_um 0.1  ;# 每微米电阻
    set c_per_um 0.2  ;# 每微米电容
    
    set resistance [expr {$length * $r_per_um / $width}]
    set capacitance [expr {$length * $c_per_um}]
    set delay [expr {$resistance * $capacitance}]
    
    return $delay
}

# 调用过程
set delay_M2 [calculate_wire_delay 100 0.2 "M2"]
puts "M2层线延迟: $delay_M2 ps"

这里要注意，proc 内部定义的变量默认是局部的，不会影响外部。如果你想在过程内部修改全局变量，需要用 global 声明。

set global_counter 0

proc increment_counter {} {
    global global_counter
    incr global_counter
}

increment_counter
puts "计数器值: $global_counter"  ;# 输出 1

我个人习惯：尽量少用全局变量。过程应该通过参数和返回值来传递数据。这样脚本的可读性和可维护性都好很多。你想想看，如果一个过程偷偷改了全局变量，调试的时候你根本不知道问题出在哪。

过程还可以有默认参数。这在写通用工具函数时特别有用。

proc create_net {name {width 0.2} {layer "M1"}} {
    puts "创建网络: $name, 线宽: $width, 层: $layer"
    # 实际创建网络的命令
}

create_net "VDD"                    ;# 使用默认线宽和层
create_net "CLK" 0.4                ;# 指定线宽，层用默认
create_net "DATA" 0.3 "M3"         ;# 全部指定

3.4 文件I/O：读写数据

自动化脚本离不开文件操作。你要读配置文件、写报告、导入网表、导出结果。Tcl的文件I/O很直接。

打开文件用 open，模式有 r（读）、w（写）、a（追加）。

# 读取文件
set file_id [open "design_report.txt" r]
set content [read $file_id]
close $file_id

puts "文件内容: $content"

逐行读取更实用，尤其是处理大文件时。

set file_id [open "cell_list.txt" r]

while {[gets $file_id line] >= 0} {
    puts "读取到单元: $line"
    # 处理每一行
}

close $file_id

写入文件也很简单。用 puts 配合文件ID。

set file_id [open "placement_report.rpt" w]

puts $file_id "========================================"
puts $file_id "布局布线报告"
puts $file_id "========================================"
puts $file_id "单元总数: 1024"
puts $file_id "标准单元面积: 0.45 mm^2"
puts $file_id "宏单元面积: 0.23 mm^2"
puts $file_id "========================================"

close $file_id
puts "报告已生成: placement_report.rpt"

我曾经犯过一个低级错误：打开文件写入后，忘了 close。结果脚本跑完，文件内容还是空的。因为Tcl的缓冲区还没刷新到磁盘。记住，close 不仅关闭文件，还会强制刷新缓冲区。

如果你不想手动管理文件ID，可以用 open 的 r+ 模式，或者用 file 命令的一些便捷方式。但说实话，手动管理更可控，我推荐你养成 open 后立即 close 的习惯。

3.5 综合示例：自动化报告生成

最后，我把今天讲的内容串起来，写一个实用的脚本。它读取一个单元列表文件，计算每个单元的延迟，然后生成报告。

# 定义计算延迟的过程
proc calculate_cell_delay {cell_name input_slew load_cap} {
    # 简化的延迟模型
    set base_delay 0.1
    set slew_factor 0.05
    set load_factor 0.02
    
    set delay [expr {$base_delay + $slew_factor * $input_slew + $load_factor * $load_cap}]
    return $delay
}

# 主流程
set input_file "cell_list.txt"
set output_file "delay_report.rpt"

# 打开输入文件
set in_id [open $input_file r]
# 打开输出文件
set out_id [open $output_file w]

# 写入报告头
puts $out_id "单元延迟分析报告"
puts $out_id "=================="
puts $out_id ""

# 逐行处理
set cell_count 0
while {[gets $in_id line] >= 0} {
    # 跳过空行和注释
    if {$line eq "" || [string match "#*" $line]} {
        continue
    }
    
    # 解析行：单元名 输入斜率 负载电容
    set fields [split $line " "]
    set cell_name [lindex $fields 0]
    set input_slew [lindex $fields 1]
    set load_cap [lindex $fields 2]
    
    # 计算延迟
    set delay [calculate_cell_delay $cell_name $input_slew $load_cap]
    
    # 写入报告
    puts $out_id "单元: $cell_name, 延迟: [format "%.3f" $delay] ns"
    incr cell_count
}

# 写入报告尾
puts $out_id ""
puts $out_id "=================="
puts $out_id "共处理 $cell_count 个单元"

# 关闭文件
close $in_id
close $out_id

puts "报告已生成: $output_file"

这个脚本虽然简单，但包含了我们今天讲的所有核心内容：proc 定义过程、while 循环、if 条件判断、string match 模式匹配、split 和 lindex 列表操作、以及文件读写。你把它吃透了，Tcl脚本自动化的基础就算打牢了。

下一节，我们会深入正则表达式和字符串处理。那是处理复杂文本的利器，在解析网表和约束文件时特别有用。咱们到时候见。

← 上一章 📖 返回目录 下一章 →