il comando tcl reindirizza a una variabile, la versione tcl è 8.4

Question

Desidero reindirizzare l'output di 1 comando a una variabile, in cui OUTPUT è in genere in STDOUT. Sono in esecuzione uno strumento EDA, che ha tcl interpeter & propri comandi. Diciamo che lo strumento ha una query tcl, che dice

TOOL> find_transistor m* 
m1 m2 m3 m4 

voglio avere un modo di fare quanto segue:

TOOL> set ret redirect {find_transistor m*} 
TOOL> puts $ret 
m1 m2 m3 m4 

Tutte le idee?

Answer 1

bene in puro Tcl

set ret [find_transistor m*] 

sarebbe probabilmente fare quello che vuoi. Prova a leggere il Tcl tutorial.

Answer 2

Prima che qualcuno esce con una soluzione elegante, condivido la mia brutta ultima risorsa:

find_transistor m* > tmp 
set fp [open "tmp" r] 
set file_data [read $fp] 
close $fp 

Tenete a mente che l'output del comando dovrebbe essere relativamente piccolo.

Answer 3

Questo potrebbe funzionare:

redirect -variable ret {find_transistor m*} 

puts $ret 

Answer 4

Se l'applicazione non dispone di un comando redirect, è possibile creare il proprio.

Si prega di dare un'occhiata a my answer per il più general question of how to redirect in plain Tcl?

Per reindirizzare in una variabile che si possa fare:

proc redirect_variable {varname cmd} { 
    rename puts ::tcl::orig::puts 

    global __puts_redirect 
    set __puts_redirect {} 

    proc puts args { 
     global __puts_redirect 
     set __puts_redirect [concat $__puts_redirect [lindex $args end]] 
     set args [lreplace $args end end] 
     if {[lsearch -regexp $args {^-nonewline}]<0} { 
      set __puts_redirect "$__puts_redirect\n" 
     } 
     return 
    } 

    uplevel $cmd 

    upvar $varname destination 
    set destination $__puts_redirect 
    unset __puts_redirect 

    rename puts {} 
    rename ::tcl::orig::puts puts 
} 

Answer 5

modo più semplice che ho trovato è exec: insieme VAR [comando exec]