参数中带有文件的 tcl exec 不起作用

Question

我正在 TCL/Tk 中开发文件浏览器，我想添加一些东西来执行当前选择的命令（使用 %l %f）%l 执行完整列表，%f 执行每个文件的命令。 我唯一的问题是，如果我输入像“gedit”这样的命令，例如它可以工作，但是一旦我输入带有参数的命令，它就不起作用...... 我到处找了还是没明白... 如果有人能帮助我... btw getl var Name 是一个函数，它返回完整路径（/home/...）中的文件名，如果我返回应该执行的字符串并将其放入终端中，它就可以工作...

这是代码：

proc tl_exec {liste command } {
#lorsqu'il faut effectué la commande avec la liste en param
if { [string first "%l" $command] > 0} {
  foreach v $liste {
     lappend args [getl $v Name]
  } 
    set com [string map [list "%l" [join $args " "] ] $command ]
  puts $com
    set val [exec [split $com " "] ]
} elseif { [string first "%f" $command] > 0} {
#lorsqu'il faut effectué la commande pour chaque fichier        
  foreach v $liste {
            set com [string map list ["%f" [getl $v "Name"] ] $command ]
            lappend val [ exec [split $com " "] ]
    }
} else {
#lorsqu'on a pas de fichiers 
    set val [exec $command]
}
}

多谢

Answer 1

您的代码有多个问题，它也可能会因文件名中的特殊字符或空格而中断，因为您根本不引用。

但你对 exec 将所有内容视为单个命令是正确的。

set val [exec [split $com " "] ]

不符合您的预期， split 返回一个列表，但不会自动将该列表转换为 exec 的额外参数。

如果您使用 Tcl 8.5，您可以尝试：

set val [exec {*}[split $com " "] ]

将列表转换为单个参数以传递给 exec。

但您使用的代码通常很脆弱，因为您不处理任何退出代码或写入 stderr 的程序，因此需要更复杂的解决方案才能保持稳健。

看看 http://wiki.tcl.tk/1039 特别是底部的讨论页。