arguments - TCL/Expect - exec - 如何使用参数执行程序

Question

我正在试验 TCL 命令 exec在 tclsh这是我的结果:

% set show_me_dir "ls"
ls
% exec $show_me_dir
VboxSharedFolder
% set show_me_dir "ls -la"
ls -la
% exec $show_me_dir
couldn't execute "ls -la": no such file or directory
% set show_me_dir {ls -la}
ls -la
% exec $show_me_dir
couldn't execute "ls -la": no such file or directory
% ls -la
total 141
d---------+ 1 wakatana Domain Users     0 Jan 22 19:12 .
d---------+ 1 wakatana Domain Users     0 Apr 16  2014 ..
----------+ 1 wakatana Domain Users 20214 Jan 23 18:43 .bash_history
----------+ 1 wakatana Domain Users  1494 Apr 15  2014 .bash_profile
----------+ 1 wakatana Domain Users  7593 Jan 22 19:03 .bashrc
d---------+ 1 wakatana Domain Users     0 Jan 15 14:56 VboxSharedFolder
%

有人可以解释一下如何使用参数执行命令吗？

编辑:

以下示例来自 Expanding a list of parameters in Tcl and eval这篇文章让这里发生的事情大开眼界:

变量 $action仅扩展为字符串 "piemiddle apple" 后 命令行已被拆分为单独的参数:

% set action {piemiddle apple}
% set $action
can't read "piemiddle apple": no such variable

结果: set命令“看到”一个参数，相当于:

% set {piemiddle apple}

扩展运算符允许您指定要扩展的变量 之前 命令行分为单独的参数:

% set action {piemiddle apple}
% set {*}$action
apple

结果: set命令“看到”两个参数，相当于:

% set piemiddle apple

在 Tcl 的早期版本中，eval 命令是推荐的替代方法，并且今天仍然可用。

% set action {piemiddle apple}
% eval set $action
apple

另一个证明扩展运算符功能的例子:

% set {*}"name Linus"
Linus
% puts $name
Linus
%
%
% set distro Unbuntu
Unbuntu
% set {*}"linux $distro"
Unbuntu
% puts $linux
Unbuntu
%
%

终于发现 exec需要命令作为第一个参数，需要第一个命令选项作为第二个参数等。

% exec "ls" "-la"
total 137
d---------+ 1 wakatana Domain Users     0 Jan 22 19:12 .
d---------+ 1 wakatana Domain Users     0 Apr 16  2014 ..
----------+ 1 wakatana Domain Users 20214 Jan 23 18:43 .bash_history
----------+ 1 wakatana Domain Users  1494 Apr 15  2014 .bash_profile
----------+ 1 wakatana Domain Users  7593 Jan 22 19:03 .bashrc
d---------+ 1 wakatana Domain Users     0 Jan 15 14:56 VboxSharedFolder
%
%
% exec "ls -la"
couldn't execute "ls -la": no such file or directory

Answer 1

最安全 为 exec 构建命令的方法是使用Tcl的list .例如:

% set tcl_version
8.5
% set cmd [list ls -l tmp]
ls -l tmp
% eval exec $cmd
total 32
-rw-r--r--  1 pynexj  staff  1176 Jan 23 23:24 file.txt
-rw-r--r--  1 pynexj  staff  1176 Jan 23 23:24 foo-1.dat
-rw-r--r--  1 pynexj  staff  1176 Jan 23 23:24 foo-2.dat
-rw-r--r--  1 pynexj  staff  1176 Jan 23 23:24 foo-3.dat
% exec {*}$cmd
total 32
-rw-r--r--  1 pynexj  staff  1176 Jan 23 23:24 file.txt
-rw-r--r--  1 pynexj  staff  1176 Jan 23 23:24 foo-1.dat
-rw-r--r--  1 pynexj  staff  1176 Jan 23 23:24 foo-2.dat
-rw-r--r--  1 pynexj  staff  1176 Jan 23 23:24 foo-3.dat
%

请注意 {*}是 Tcl 8.5 的新语法，可以帮助减少 eval 的使用。 .