使用perl的“系统”

Question

我想使用 Perl 的 system() 运行一些命令（例如 command）。假设 command 从 shell 运行，如下所示：

command --arg1=arg1 --arg2=arg2 -arg3 -arg4

How do I use system() to run command with those argument?

Answer 1

最佳实践：避免 shell，使用自动错误处理 - IPC::System::Simple< /代码>。

require IPC::System::Simple;
use autodie qw(:all);
system qw(command --arg1=arg1 --arg2=arg2 -arg3 -arg4);

---

use IPC::System::Simple qw(runx);
runx [0], qw(command --arg1=arg1 --arg2=arg2 -arg3 -arg4);
#     ↑ list of allowed EXIT_VALs, see documentation

编辑：接下来是咆哮。

eugene y 的答案包括系统文档的链接。在那里我们可以看到一段相同的代码，每次都需要包含它才能正确执行system。尤金·伊的回答仅显示了其中的一部分。

每当我们遇到这种情况时，我们都会将重复的代码捆绑在一个模块中。我将 Try::Tiny 与正确的简单异常处理进行了比较，但是将 IPC::System::Simple 视为 system做得正确并没有看到社区的快速采用。看来需要更频繁地重复。

所以，使用autodie！使用 IPC::System::Simple! 避免您的乏味，请放心，您使用的是经过测试的代码。

Answer 2

my @args = qw(command --arg1=arg1 --arg2=arg2 -arg3 -arg4);
system(@args) == 0 or die "system @args failed: $?";

更多信息请参见 perldoc。

Answer 3

与 Perl 中的所有内容一样，有不止一种方法可以做到这一点:)

最好的方法是将参数作为列表传递：

system("command", "--arg1=arg1","--arg2=arg2","-arg3","-arg4");

尽管有时程序似乎不太适合该版本（特别是如果它们希望从壳）。如果您将命令作为单个字符串执行，Perl 将从 shell 调用该命令。

system("command --arg1=arg1 --arg2=arg2 -arg3 -arg4");

但这种形式速度较慢。

Answer 4

my @args = ( "command", "--arg1=arg1", "--arg2=arg2", "-arg3", "-arg4" );
system(@args);