tcl 中的exec运行第三方，怎么同时打印第三方信息到stdout
运行第三方程序：
?
exec ?switches? arg ?arg ...?
?
同时打印出信息到stdout呢？
exec ?switches? arg ?arg ...? >@ stdout
?
这个方法还试验的不少次数，没有发现，因为tkcon中不支持这种，奇怪了。
tclsh中就支持。
?
当然，也可以用open |some program得到pipe后，在用fileevent $pipe readable [list Reader $pipe];来读pipe，这种方法可以过滤处理每一行的信息了。不过麻烦点儿，麻烦有麻烦的好处，在用【pid? $pipe】可以得到运行程序的pid，用[catch {close $pipe} err]还可以得到后台程序退出时的状态。
?
发现：
set tempFileName invert_[pid].tclputs "1= $tempFileName"# Open the output file, and# write the program to itset outfl [open $tempFileName w]puts $outfl { set len [gets stdin line] if {$len < 5} {exit -1} for {set i [expr {$len-1}]} {$i >= 0} {incr i -1} { append l2 [string range $line $i $i] } puts " 2= $l2" exit 0}# Flush and close the fileflush $outflclose $outfl## Run the new Tcl script:## Open a pipe to the program (for both reading and writing: r+)#set io [open "|[info nameofexecutable] $tempFileName" r+]## send a string to the new program# *MUST FLUSH*puts $io "This will come back backwards."flush $io# Get the reply, and display it.set len [gets $io line]puts "1= To reverse: 'This will come back backwards.'"puts "1= Reversed is: $line"puts "1= The line is $len characters long"# Run the program with input defined in an exec callset invert [exec [info nameofexecutable] $tempFileName << \ "ABLE WAS I ERE I SAW ELBA"]# display the resultsputs "1= The inversion of 'ABLE WAS I ERE I SAW ELBA' is \n $invert"# Clean upfile delete $tempFileName?
例子就是建立了一个临时文件，运行这个文件用了两种方法，一个exec，一个open，运行的程序从stdin中得到字符，后把这个字符，反转后输出。
