求助：Windows下TCL无法捕获Questa-Lint程序输出，Linux版本正常

我此前多次用Tcl实现程序输出捕获，简单的exec存变量仅适用于短输出/快速输出的程序，因此改用两种基于open的方法，但Windows版本Questa-Lint的输出完全无法被捕获（Linux版本正常工作）：

• 两种方法执行时，Tcl无任何输出，但会弹出Windows命令行窗口显示工具的全部输出
• 直接在cmd.exe中启动工具可正常看到输出
• 两种方法在Linux/Windows下适配其他十多款工具均无问题，仅在Windows版Questa-Lint上出现异常

我尝试过的两种方法 #

方法1：无管道循环读取 #

set appli [open "|toto.exe 2>@ $logfile" r]
fconfigure $appli -blocking false -buffering line -encoding utf-8

update

set update 0
set nb_ligne_vide 0

# Ecriture du rapport
set boucle 1
while {$boucle} {

    # Lecture ligne
    gets $appli line

    if {[eof $appli] == 1} {set boucle 0}
    # Si ligne complète...
    if {[fblocked $appli] != 1} {

        if { $line == "" } {
            incr nb_ligne_vide
        }

        if {$line != "" || ($nb_ligne_vide > 1)  } { # 注：原代码用了|，应为逻辑或||
            puts $line
            incr update
            set nb_ligne_vide 0
        }
    }  else {
        after 10
        incr update
    }

    if { $update > 50 } {
        set update 0
        update
    }
}
close $appli

方法2：文件事件监听管道 #

set appli [open "|toto.exe 2>@ $logfile" r+]
fconfigure $appli -blocking false -buffering line -encoding utf-8

fileevent $appli readable [list pipe_questalint $appli]

proc pipe_questalint { appli } {
    global done etat
    if { [eof $appli] } {
        close $appli
        set done 1
    } else {

        if {[gets $appli line] >= 0} {
            puts "TEST: $line"
        }
    }
}
vwait done

问题分析 #

Windows下部分EDA工具（如Questa-Lint）会绕过标准输出/错误流，直接向新创建的控制台窗口输出，或者启动时使用特殊进程参数，导致Tcl的管道无法捕获输出。另外，Windows cmd的重定向语法（2>&1）和Tcl/Linux风格的2>@1存在差异，原代码的重定向写法在Windows下可能不生效。

解决方案 #

方案1：修正重定向语法+强制使用标准流 #

改用Windows cmd原生的重定向语法，并用cmd /c包裹命令确保解析正确，同时检查工具是否有强制输出到标准流的参数（如-batch）：

set logfile stdout
# 用cmd /c处理Windows风格重定向，2>&1将错误输出合并到标准输出
set appli [open "|cmd /c \"toto.exe -batch 2>&1\"" r]
fconfigure $appli -blocking false -buffering line -encoding utf-8

fileevent $appli readable [list pipe_questalint $appli]

proc pipe_questalint { appli } {
    global done
    if { [eof $appli] } {
        close $appli
        set done 1
    } else {
        # 循环读取所有可用行，避免单次gets遗漏数据
        while {[gets $appli line] >= 0} {
            puts "TEST: $line"
        }
    }
}
vwait done

方案2：通过日志文件中转输出 #

如果管道捕获失效，可让工具直接输出到日志文件，再监控文件内容变化：

# 创建日志文件
set log [open "questalint_output.log" w]
# 后台执行工具，将stdout/stderr都写入日志
exec toto.exe -batch >@$log 2>@$log &
set tool_pid [pid]

# 监控日志文件的可读事件
fileevent $log readable [list read_log $log $tool_pid]
vwait done

proc read_log {log tool_pid} {
    global done
    # 检查工具进程是否已退出
    if {[catch {exec tasklist /FI "PID eq $tool_pid" /NH} res] || [string first "$tool_pid" $res] == -1} {
        # 读取剩余内容
        while {[gets $log line] >=0} {
            puts "TEST: $line"
        }
        close $log
        set done 1
        return
    }
    # 读取新增内容
    while {[gets $log line] >=0} {
        puts "TEST: $line"
    }
}

方案3：禁止工具弹出新控制台窗口 #

用start /B参数让工具在当前会话执行，不创建新窗口，确保输出进入管道：

set appli [open "|start /B cmd /c \"toto.exe -batch 2>&1\"" r]
fconfigure $appli -blocking false -buffering line -encoding utf-8

fileevent $appli readable [list pipe_questalint $appli]

proc pipe_questalint { appli } {
    global done
    if { [eof $appli] } {
        close $appli
        set done 1
    } else {
        while {[gets $appli line] >= 0} {
            puts "TEST: $line"
        }
    }
}
vwait done

额外提示 #

• 查阅Questa-Lint官方文档，确认是否有专门的参数控制输出目标（如-report stdout或-logfile）
• 原方法1中的逻辑或运算符写错了，应该是||而非|，这可能导致空行处理异常

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