如果找不到提供的程序，我可以阻止系统调用 cmd.exe 吗？

Question

在 Windows 上（使用 AcitveState perl 5.8...），当我使用 system 从我的 Perl 脚本中调用另一个程序，如下所示：

my $command="tool.exe"; # or 'C:\fullpath\tool.exe'
my $param = '...';
my $err = system($command, $param);
die("tool not found!") if $err == -1; # never used!
my $errno = $err>>8;
print "Command executed with error code: $errno\n";

我永远无法正确确定系统是否可以找到 tool.exe，因为如果找不到它（不在路径上，或不在指定的完整路径上）不存在） system 显然会自动将命令传递给 cmd.exe，然后 cmd.exe 将失败，并显示 path-not-found（退出代码 3）或 command-not-found退出代码 1！

正如您所看到的，我指定的命令中没有 shell 元字符，所以我有点困惑 shell 是如何进入那里的。

另请注意，我（使用 ProcessExplorer）检查过，当 tool.exe 位于路径上时，不会涉及 cmd.exe，即 perl.exe 将是 tool.exe 的直接父进程。

解决方法：(??)

如果命令不存在，以下至少会给我一个 255 退出代码，尽管它看起来有点 hacky，因为它会打印 Can不生成“cmd.exe”：在 ... 处没有此类文件或目录到 STDERR。

my $command="tool.exe"; # or 'C:\fullpath\tool.exe'
my @args = ($command, '...');
my $err = system {$command} @args;
# die("tool not found!") if $err == -1; # never used!
my $errno = $err>>8;
die("tool not found!") if $errno == 255;
print "Command executed with error code: $errno\n";

Answer 1

最好的选择是使用 File::Which

use File::Which;
my $exe_path = which('tool.exe');
print "tool.exe not in path" unless $exe_path;

Answer 2

为什么不使用 perl 文件存在检查？

if( -e $file_path)  
{  
  #invoke the command  
}