如何在tcl中运行可执行文件

Question

我正在尝试执行一个有一些选项的程序，并将其作为一个输入txt文件。所以我尝试了这个：

set myExecutable [file join $::env(path_to_the_program) bin executable_name] 
if { ![file exists $myExecutable ] } {
puts "error"
}
if { ![file executable $myExecutable ] } {
puts "error"
}

set arguments [list -option1 -option2]
set status [catch { exec $myExecutable $arguments  $txtFileName } output]
if { $status != 0 } {
    puts "output = $output"
}

所以它是打印：

output = Usage: executable_name -option1 -option2 <txt_file_name>
child process exited abnormally

Answer 1

您实际上并没有为可执行文件提供参数。只是文本文件名。尝试：

set status [catch {exec $myExecutable -option1 -option2 $txtFileName} output]

或者，如果您喜欢将参数保留在列表中：

set status [catch {exec $myExecutable {*}$arguments} output]

其中｛*｝语法将导致列表在适当位置展开。在添加之前的Tcl版本（8.5）中，您将使用：

set status [catch {eval exec [list $myExecutable] $arguments} output]

eval命令打开列表，以便exec看到一组参数。在$myExecutable周围添加额外的[list]语句可以保护它的内容不被解释器传递处理为列表。