TCL中实现程序输出重定向至文件并实时读取及监控进程结束

1. 正确启动带输出重定向的外部程序 #

Windows的命令行重定向由cmd.exe处理，直接在TCL的exec或open中写>会被当作程序参数，必须用cmd /c包裹整个命令。同时用start /b让程序后台运行，避免阻塞TCL脚本：

# 定义日志文件路径
set output_log "test1.txt"
# 构建完整命令（注意路径和参数的引号处理）
set program_path "\"D:\\app\\iao\\qverify.exe\""
set program_args "-od output_files -l qverify.log -c -do run_questalint_top_fb_a429_tx.do"
set full_cmd "cmd /c $program_path $program_args > $output_log 2>&1"

# 启动后台进程，TCL立即返回不阻塞
exec {*}[auto_execok start] /b "" $full_cmd

2. 获取进程PID用于监控 #

start /b不会返回PID，可通过以下两种方式获取：

方法1：原生TCL通过进程名称查找 #

适合程序名称唯一的场景：

proc get_program_pid {program_name} {
    if {[catch {exec tasklist /FI "IMAGENAME eq $program_name" /FO CSV 2>nul} output]} {
        return ""
    }
    set lines [split $output "\n"]
    foreach line $lines {
        if {[string match "*$program_name*" $line]} {
            set fields [split $line ","]
            set pid [string trim [lindex $fields 1] "\""]
            return $pid
        }
    }
    return ""
}

# 获取qverify.exe的PID
set target_pid [get_program_pid "qverify.exe"]

方法2：用twapi扩展（更可靠） #

若已安装twapi，可直接启动进程并获取PID：

package require twapi
set cmd_list [list D:\\app\\iao\\qverify.exe -od output_files -l qverify.log -c -do run_questalint_top_fb_a429_tx.do]
set fd [open $output_log w]
set proc_info [twapi::create_process {*}$cmd_list -stdout $fd -stderr $fd -creation_flags CREATE_NO_WINDOW]
close $fd
set target_pid [dict get $proc_info pid]

3. 实时读取日志文件 #

用fileevent监控日志文件的可读事件，每次读取新增内容，避免重复输出：

proc monitor_log {log_fd target_pid} {
    global last_read_pos
    # 跳转到上次读取的位置
    seek $log_fd $last_read_pos
    # 读取新增内容并输出
    set new_content [read $log_fd]
    if {[string length $new_content] > 0} {
        puts -nonewline $new_content
        set last_read_pos [tell $log_fd]
    }
    # 检查进程是否存活
    if {![is_process_running $target_pid]} {
        # 读取剩余内容
        seek $log_fd $last_read_pos
        set remaining [read $log_fd]
        if {[string length $remaining] > 0} {
            puts -nonewline $remaining
        }
        # 停止监控并清理
        close $log_fd
        fileevent $log_fd readable {}
        puts "\n程序执行完毕"
    }
}

proc is_process_running {pid} {
    if {$pid eq ""} {
        return 0
    }
    # 通过tasklist验证PID是否存在
    if {[catch {exec tasklist /FI "PID eq $pid" /FO CSV 2>nul} output]} {
        return 0
    }
    return [expr {[string first "\"$pid\"" $output] != -1}]
}

# 初始化监控
set last_read_pos 0
set log_fd [open $output_log r]
fconfigure $log_fd -buffering none
fileevent $log_fd readable [list monitor_log $log_fd $target_pid]

# 保持脚本运行直到进程结束
vwait forever

常见问题解决 #

• 重定向失败：必须用cmd /c包裹命令，确保重定向由Windows命令解释器处理，不要直接在TCL的open或exec中写>。
• fileevent报错：若直接用管道（open "|cmd /c ..."）出现问题，优先采用文件重定向+监控文件的方案，Windows下对文件的fileevent支持更稳定。
• PID查找不准确：若系统中有多个同名进程，建议用twapi的create_process直接获取PID，避免误判。

内容的提问来源于stack exchange，提问作者iostrym