TCL - ¿Cómo imprimir en la pantalla los mensajes que se imprimieron durante la ejecución del comando exec?

Question

decir que tengo que desee ejecutar un script o ejecutable y el archivo de tiempo de ejecución mediante la impresión de la salida de la ejecución.

Cuando hago:

set log [exec ./executable_file] 
puts $log 

entonces se espera un largo tiempo y luego se imprime todo a la vez. Pero quiero imprimir en tiempo de ejecución. ¿Cómo puedo hacer esto?

Answer 1

No es perfecto (ya que requiere la escritura de archivo externo):

set log [exec executable_file | tee log.txt >@stdout] 

La salida se mostrará inmediatamente, al mismo tiempo, guardado en 'log.txt'. Si no le importa guardar la salida:

set log [exec executable_file >@stdout] 

Answer 2

puede ser usted puede iniciar otro proceso en segundo plano antes de su ejecutable, como logfile.txt tail-f, y la salida de los resultados de su ejecutable en este logfile.txt?

Answer 3

Uso open "| ..." y asyncronous lectura del descriptor devuelto, como este linewise:

proc ReadLine fd { 
    if {[gets $fd line] < 0} { 
    if {[chan eof $fd]} { 
     chan close $fd 
     set ::forever now 
     return 
    } 
    } 
    puts $line 
} 

set fd [open "| ./executable_file"] 
chan configure $fd -blocking no 
chan event $fd readable [list ReadLine $fd] 

vwait forever 

Ver this wiki page para ejemplos más complicados.

En un programa real es probable que ya tienen un ciclo de eventos en ejecución por lo que no habría necesidad de un vwait específico para la lectura de la salida de un comando.

Además, si necesita recopilar la salida, no solo [puts] cada línea después de haberla leído, es probable que necesite crear una variable global (generalmente espaciada), inicializarla en "", pasar su nombre como otro argumento al procedimiento de devolución de llamada (ReadLine aquí) y anexar la línea al valor de esa variable.