tclshからbash組み込み関数を呼び出す

Question

バックグラウンドで特定のコマンドを実行する必要のあるtclshスクリプトがあります。 私はexecコマンドを使ってtclからこれを達成することができました：exec myprog &。

しかし、私はmyprogがtclから完了するのを待つことができます。 コマンドwaitはスタンドアロンのユーティリティではありませんので、execで使用できます。 waitコマンドは、シェルの組み込みコマンドです。 tclshスクリプトのバックグラウンドプロセスをどのように待つことができるか教えてください。

PS：私のスクリプトに＃！/ usr/bin/env tclsh shebangを使用しています。

Answer 1

あなたはTclの中にバックグラウンドでコマンドを実行したい場合は、の線に沿って何かのために行くことができる：コマンドを使用して、「開くことができるようになる前に

proc cb { fd } { 
     gets $fd buf 
     append ::output $buf 
     if {[eof $fd]} { 
      close $fd 
      set ::finished 1 
     } 
} 

set command "<command to execute>" 
set ::output "" 
set ::finished 0 
set fd [open "|$command" r] 
fconfigure $fd -blocking no 
fileevent $fd readable "cb $fd" 
vwait ::finished 
puts $::output 

|とopenの使用"コマンドへのパイプ。 fconfigureを使用して非ブロッキングに設定すると、スクリプト内の他のプロセスをロックせずに読み込むことができます。 fileeventは、読み取るデータがある場合はいつでも、指定されたコールバックproc（この場合はcb）を呼び出します（したがって、readableフラグ）。 は、指定された変数が書き込まれるまでスクリプトが続行されないようにします。つまり、$commandがバックグラウンドで実行され、Tkインターフェイスが応答したままで、続行するまで待機します。