这个 zip 命令在 perl 中是如何使用的？

Question

我在 perl 中找到了这段代码，

system("zip $ZIP_DEBUG -r -9 itvlib.zip $include $exclude");

但是我不明白它是如何工作的。我的意思是 system() 用于触发“系统”命令，对吗？那么这里使用的“zip”命令是“系统”命令吗？ 但我尝试在命令提示符下触发以下命令；

zip $ZIP_DEBUG -r -9 itvlib.zip arg1 arg2

没用！ 它给出了以下错误：

'zip' is not recognized as an internal or external command,
operable program or batch file.

嗯，这不应该发生，因为该命令似乎使用“zip”作为系统命令。所以这使得命令“zip”变得神秘

你能帮我理解这个命令及其所有参数吗？

Answer 1

它可能不起作用，因为您没有将 $ZIP_DEBUG 等内容替换为等效的真实值。在 Perl 中，它们将在传递给系统调用之前被变量的值替换。

如果在执行系统调用之前打印出这些 Perl 变量（甚至整个命令），您将找到需要使用的实际值。您可以使用以下文字来指导您：

$ perl -e '
>     $ZIP_DEBUG = "xyzzy";
>     $include = "inc_files";
>     $exclude = "exc_files";
>     print "zip $ZIP_DEBUG -r -9 itvlib.zip $include $exclude";
> '
zip xyzzy -r -9 itvlib.zip inc_files exc_files

有关 system 如何工作的详细信息，请参阅

man zip

从命令行 shell（假设您使用的是 Linux 或其兄弟）。相反，如果您使用的是不同的操作系统（例如 Windows），则必须弄清楚如何获取 zip 选项。这可能很简单，就像 zip -h 的 zip -? 一样，但不能保证它会起作用。

如果它与 Linux 下的 Info-ZIP zip 相同（如果您有 -9 和 -r 选项并且您的exclude 变量以 -x 开头），然后 zip -h 将为您提供基本帮助，zip -h2 将为您提供基本帮助给你更多。

Answer 2

system("zip $ZIP_DEBUG -r -9 itvlib.zip $include $exclude");

正在路径上的某处运行名为 zip 的程序（可能是 zip.exe）。 $ZIP_DEBUG、$include 和 $exclude 是在命令运行之前插入到命令行中的 Perl 变量。

如果 system 调用在 Perl 脚本中有效，但 zip -? 给出 'zip' 未被识别为内部或外部命令、可操作程序或批处理file 错误，那么 Perl 脚本的 PATH 必须与命令提示符中的 PATH 不同。或者，当 Perl 执行 system 命令时，当前目录中可能存在 zip 命令。 （在 Windows 中，当前目录是 PATH 的隐式成员。）

要查看 Perl 脚本的 PATH，您可以在前面添加 print "$ENV{PATH}\n";系统命令。要在命令提示符中查看 PATH 是什么，请键入 PATH。

Answer 3

是的，zip 是一个系统命令。变量 $ZIP_DEBUG 等是在启动 zip 之前插入到命令中的 Perl 变量。

要调试实际调用是什么，请尝试添加：

print("zip $ZIP_DEBUG -r -9 itvlib.zip $include $exclude\n");

有关 的详细信息，请参阅 perldoc系统。