commande tcl rediriger vers une variable, la version tcl est 8.4

Question

Je souhaite rediriger la sortie de la commande 1 vers une variable, où OUTPUT est généralement STDOUT. Je cours un outil d'EDA, qui a tcl interpêtre & ses propres commandes. Disons que l'outil a une requête tcl, qui dit

TOOL> find_transistor m* 
m1 m2 m3 m4 

Je veux avoir une façon de faire ce qui suit:

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

Toutes les idées?

Answer 1

bien dans le plus pur Tcl

set ret [find_transistor m*] 

serait probablement faire ce que vous voulez. Essayez de lire le Tcl tutorial.

Answer 2

Avant que quelqu'un arrive avec une solution élégante, je partage mon laid dernier recours:

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

Gardez à l'esprit que la sortie de la commande devrait être relativement faible.

Answer 3

Cela pourrait fonctionner:

redirect -variable ret {find_transistor m*} 

puts $ret 

Answer 4

Si votre application ne dispose pas d'une commande redirect, vous pouvez créer votre propre.

S'il vous plaît jeter un oeil à my answer au plus general question of how to redirect in plain Tcl?

Pour rediriger dans une variable que vous pourriez faire:

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

façon plus simple que j'ai trouvé est exec: set VAR [COMMANDE exec]