perl - 仅在外部应用程序存在时运行的最佳方式

Question

我有一个 Perl 脚本，作为其最后步骤之一，它会创建一个已创建文件的压缩版本。由于一些不幸的设置，我们不能保证给定的客户将具有特定的压缩功能。我想把这样的东西放在一起:

if ($has_jar) {
    system("jar -c $compressed_file $infile");
}
elsif ($has_zip) {
    system("zip -j $compressed_file $infile");
}
else {
    copy($infile, $compressed_file);
}

如果他们没有任何压缩应用程序，它只会将文件复制到压缩文件的位置而不压缩它。

我的棘手问题是，我不太确定确定它们是否有 jar 或 zip 的最佳方法是什么。看起来我可以使用 exec() 而不是 system() 并利用它只在失败时返回的事实，但脚本实际上做了一些在此之后的事情，所以那是行不通的。

我还需要它成为一个可移植的解决方案，因为这个脚本可以在 Windows 和各种 Unix 发行版上运行。提前致谢。

Answer 1

我认为最好的选择是 File::Which .