在tcl中执行linux命令

Question

当我在终端中执行命令openssl rand -base64 12时，它将输出输出：

mFpVuBreI0dPENLF

我有以下tcl脚本，在其中我已使用exec调用了linux：

for {set kb 0} {$kb<5} {incr kb} {
    exec openssl rand -base64 12 
    puts "end"
}

当我运行上述脚本时，它会打印单词“ end”四次，但不会打印openssl rand -base64 12的输出。 这是什么原因呢？

谁能帮我？

Answer 1

捕获执行的子流程的输出并进行打印。 例如：

for {set n 0} {$n < 4} {incr n} {
  set r [exec openssl rand -base64 12]
  puts [format {%d %s} $n $r]
}

测试此：

$ tclsh8.5 z.tcl
0 GG6ppnaPgJoTPxlC
1 xLHDiDBBQ6cxxvmg
2 wGnqqegconlwu3YV
3 QRM0IsXzw4rk3r+j

原因是该子流程的标准输出已被记录为文档 ：

如果标准输出尚未重定向，则exec命令从管道中的最后一条命令返回标准输出

因此openssl的stdout不再连接到终端。 相反，除非您使用手册页中提供的重定向选项之一，否则Tcl会读取它并将任何写入变量的内容放入变量中。 对于使用open产生大量输出的过程来说，是一个更好的选择，因为您可以分步读取输出，但是对于这个示例， exec很好。