tcl कमांड एक चर के लिए रीडायरेक्ट करता है, tcl संस्करण 8.4

Question

मैं 1 कमांड के आउटपुट को एक चर में रीडायरेक्ट करना चाहता हूं, जहां OUTPUT आमतौर पर STDOUT होता है। मैं एक ईडीए उपकरण चला रहा हूं, जिसमें टीसीएल इंटरपेटर & है, यह अपने स्वयं के आदेश हैं।

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

कोई भी विचार: चलो कहते हैं कि उपकरण एक tcl क्वेरी का कहना है कि जो

TOOL> find_transistor m* 
m1 m2 m3 m4 

मैं निम्नलिखित करने का एक तरीका करना चाहते है कि करते हैं?

Answer 1

शुद्ध Tcl

में अच्छी तरह से

set ret [find_transistor m*] 

शायद आप क्या चाहते हैं करना होगा। Tcl tutorial पढ़ने का प्रयास करें। मन में

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

भालू है कि आदेश के उत्पादन में अपेक्षाकृत छोटे होना चाहिए:

Answer 2

इससे पहले कि किसी को भी एक सुरुचिपूर्ण समाधान के साथ आता है, मैं अपने बदसूरत अंतिम उपाय को साझा करें।

Answer 3

यह काम हो सकता है: आपके आवेदन एक redirect आदेश नहीं है

redirect -variable ret {find_transistor m*} 

puts $ret 

Answer 4

हैं, तो आप अपने खुद के बना सकते हैं।

my answer पर general question of how to redirect in plain Tcl पर एक नज़र डालें?

एक चर में पुन: निर्देशित करना कर सकता है:

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

सबसे आसान तरीका मैंने पाया कार्यकारी है: सेट वीएआर [कार्यकारी COMMAND]