适用：Tcl 脚本、EDA 工具（Innovus）
版本：Tcl 8.5 / 8.6
关键词：日志、logger、puts、EDA
一、为什么需要专业的日志管理？
puts 是最基础的输出方式，但在实际项目中常遇到：
二、确认 Tcl 版本
不同版本支持的 IO 命令不同，先确认环境：
% puts $tcl_version
8.6
% puts [info patchlevel]
8.6.13
| 特性 | Tcl 8.5 | Tcl 8.6+ |
|---|
chan 命令 | ❌ | ✅ |
try/throw | ❌ | ✅ |
fconfigure | ✅ | ✅ |
三、基础：puts 的缓冲控制
set logfile [open "app.log" "a"]
fconfigure $logfile -buffering full -buffersize 8192
puts $logfile "日志内容"
flush $logfile ;# 必要时手动刷新
Tcl 8.6+（使用 chan）
set logfile [open "app.log" "a"]
chan configure $logfile -buffering full -buffersize 8192
puts $logfile "日志内容"
要点：默认行缓冲导致频繁系统调用，改为全缓冲可大幅提升性能。
四、进阶：logger 包（生产环境首选）
4.1 安装与加载
package require logger
set log [logger::init myapp]
${log}::setlevel info
4.2 日志分级
${log}::debug "调试" ;# 低于 info，不显示
${log}::info "启动成功"
${log}::warn "配置缺失"
${log}::error "错误"
4.3 多输出端
# 同时输出到文件和控制台
${log}::appender-add fileapp [logger::appender::file \
-file "app.log" -buffersize 10000]
${log}::appender-add console [logger::appender::console]
4.4 带时间戳的日志文件
set ts [clock format [clock seconds] -format "%Y%m%d_%H%M%S"]
set logfile "run_${ts}.log"
${log}::appender-add fileapp [logger::appender::file -file $logfile]
五、实战：Innovus 环境完整模板
5.1 环境确认
innovus 1> puts [info patchlevel]
8.6.4
innovus 2> package require logger
0.9.4
5.2 完整模板
# ============================================
# 1. 初始化
# ============================================
package require logger
set log [logger::init innovus_log]
${log}::setlevel info
set ts [clock format [clock seconds] -format "%Y%m%d_%H%M%S"]
set logfile "innovus_${ts}.log"
${log}::appender-add fileapp [logger::appender::file \
-file $logfile -buffersize 8192]
${log}::appender-add console [logger::appender::console]
${log}::info "=== Innovus 启动 ==="
${log}::info "Tcl: [info patchlevel], 日志: $logfile"
# ============================================
# 2. 辅助过程
# ============================================
# 执行命令并记录输出
proc log_cmd {cmd} {
global log
set output [eval $cmd]
${log}::info ">>> $cmd"
${log}::info "输出: $output"
return $output
}
# 记录设计状态
proc log_db_status {} {
global log
${log}::info "标准单元: [llength [dbGet top.insts.cell.type Standard]]"
${log}::info "宏单元: [llength [dbGet top.insts.cell.type Macro]]"
${log}::info "利用率: [dbGet top.insts.area] / [dbGet top.area]"
}
# ============================================
# 3. 带错误捕获的流程执行
# ============================================
try {
${log}::info "开始 Floorplan..."
# floorPlan ...（替换为实际命令）
${log}::info "开始 Placement..."
# place_opt_design
${log}::info "开始 CTS..."
# ccopt_design
${log}::info "开始 Routing..."
# route_design
} trap {INNOVUS-ERROR} {errMsg} {
${log}::error "流程失败: $errMsg"
} finally {
${log}::info "结束时间: [clock format [clock seconds]]"
${log}::info "日志: $logfile"
}
5.3 使用示例
${log}::info "设计: [dbGet top.name]"
${log}::info "开始 place_opt_design..."
place_opt_design
${log}::info "完成"
log_db_status
六、其他技巧
6.1 JSON 格式（适配 ELK）
package require json
proc json_log {level msg} {
set json [json::write object \
"time" [clock format [clock seconds] -format "%Y-%m-%dT%H:%M:%S"] \
"level" $level "message" $msg "pid" [pid]]
puts $json
}
6.2 写入 syslog
exec logger -t "MyApp" -p user.info "系统日志"
6.3 版本兼容检测
if {[info commands chan] ne ""} {
# Tcl 8.6+ 使用 chan
} else {
# Tcl 8.5 使用 fconfigure
}
七、方案选择速查
| 场景 | 推荐 |
|---|
| 快速调试 | puts |
| 生产环境 | logger 包 |
| Tcl 8.5 | fconfigure + logger |
| Tcl 8.6+ | chan + logger |
| Innovus | logger（已预装） |
| 日志分析 | JSON 格式输出 |
八、参考资料
个人技术记录，欢迎交流指正
更新：2026.07
