tcl komutunun bir değişkene yeniden yönlendirilmesi, tcl sürümü: 8.4

Question

1 komutunun çıktısını, OUTPUT'un genellikle STDOUT olduğu bir değişkene yeniden yönlendirmek istiyorum. Ben kendi komutları tcl interpeter & olan bir EDA aracı çalıştırıyorum.

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

Herhangi bir fikir: en alet

TOOL> find_transistor m* 
m1 m2 m3 m4 

aşağıdaki yapmanın bir yolu var istiyorum diyen bir tcl sorgusu sahip olduğunu varsayalım ?

set ret [find_transistor m*] 

saf Tcl

iyi

Answer 1

muhtemelen ne istediğinizi yapardı. Tcl tutorial'u okumayı deneyin. komutunun çıktısı nispeten küçük olması gerektiği akılda

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

Bear: herkes zarif bir çözüm ile çıkageldi

Answer 2

önce benim çirkin son çare paylaşır.

Answer 3

Bu işe yarayabilecek: Eğer uygulamalarda redirect komutu yoktur

redirect -variable ret {find_transistor m*} 

puts $ret 

Answer 4

varsa, kendi oluşturabilirsiniz.

Lütfen daha fazla general question of how to redirect in plain Tcl için my answer'a bir göz atın. Bulduğum

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

kolay yoludur exec: set VAR [exec KOMUTANLIĞI]