Чтение файла из Запуск других программ от Tcl

Question

Я открываю программу оболочки из tcl с открытой командой, выходной файл оболочки имеет несколько строк и команд tcl по строкам. Может ли сказать мне, как печать, если строка представляет собой список строк и как оценить, если линия команды TCL

Я использовал следующий sytnax, но он пытается преобразования приложений струны также,

set fileID [open "| unix ../filename_1" r+] 
    while 1 { 
    set line [gets $fileID] 
    puts "Read line: $line" 
    if {$line == "some_text"} { puts $line #text 
    } elseif { $line == "cmd"} {set j [eval $line] #eval cmd } 

}

Answer 1

Вы можете попробовать это (проверено)

принципа: первое слово каждой строки проверяется, чтобы увидеть, если он принадлежит к списку команд TCL, , который был первым полученным «Информация команды».

Иногда вы не можете правильно получить первое слово, поэтому эта команда находится в catch {}.

set fileID [open myfile] 
set cmdlist [info commands] 
while {1} { 
    set readLine [gets $fileID] 
    if { [eof $fileID]} { 
     break 
    } 
    catch {set firstword [lindex $readLine 0] } 
    if { [lsearch $cmdlist $firstword] != -1 } { 
     puts "tcl command line : $readLine" 
    } else { 
     puts "other line : $readLine" 
    } 
} 

Answer 2

Полный кредит для abendhurt. Переписав его ответ на более идиоматических Tcl:

set fid [open myfile] 
set commands [info commands] 
while {[gets $fid line] != -1} { 
    set first [lindex [split $line] 0] 
    if {$first in $commands} { 
     puts "tcl command line : $line" 
    } else { 
     puts "other line : $line" 
    } 
} 

Примечания:

• использование while {[gets ...] != -1} чтобы сократить код немного. не
• использование split для преобразования строки в надлежащий список - больше не нужно catch
• использовать встроенный in оператора для улучшения читаемости.

---

Я думаю, что я понимаю:

set fid [openopen "| unix ../filename_1" r] 
set commands [info commands] 
set script [list] 
while {[gets $fid line] != -1} { 
    set first [lindex [split $line] 0] 
    if {$first in $commands} { 
     lappend script $line 
    } 
    puts $line 
} 
eval [join $script ;]