如何在 Perl 中运行脚本而不是等待它？

Question

我在 Perl 中有一个如下所示的系统调用：

system('/path/to/utility >> /redirect/to/log file');

但这要等待utility 完成。我只想触发它并让 Perl 脚本完成，而不管 utility 调用是否完成。

我该怎么做？

我尝试将行更改为

system('/path/to/utility >> /redirect/to/log file &');

但此语法仍在 Windows 上等待调用完成。我需要让它在 Linux 和 Windows 上运行。

Answer 1

if ($^O eq 'MSWin32') {
   system('start "" \\path\\to\\utility >> \\redirect\\to\\log_file');
} else {
   system('/path/to/utility >> /redirect/to/log_file &');
}

或

if ($^O eq 'MSWin32') {
   system(1, '\\path\\to\\utility >> \\redirect\\to\\log_file');
} else {
   system('/path/to/utility >> /redirect/to/log_file &');
}

Answer 2

您可以尝试查看fork 关键字，然后从分叉的进程中启动您的系统命令。有关示例，请参见 perlipc 手册页。

Answer 3

这个常见的任务已经被抽象到CPAN模块Proc::Background

Answer 4

在类 POSIX 系统上最简单的方法实际上是您已经尝试过的方法：

system('/path/to/utility >> /redirect/to/log_file &');

让工具在 Windows 后台执行的最简单方法是使用 start.exe 作为启动助手：

system('start /path/to/utility >> /redirect/to/log_file');

但是，我不知道以这种方式将输出重定向到日志文件是否有效，而且此时我还没有 Windows 系统来测试它。

是的，这意味着您需要一个代码分支，具体取决于当前系统，但其他解决方案也可能需要一个。如果你的 Perl 有fork() 仿真，你实际上可以在两个系统上使用fork()（这有点复杂，因为你不能那么容易地将标准输出重定向到日志文件，你首先必须在 Perl 中打开它并制作它在调用新进程之前分叉子的标准输出）。如果您的 Windows Perl 没有 fork() 仿真，您还需要一个代码分支，因为在这种情况下，您只能在 UNIX 上使用 fork()，而您需要在 Windows 上使用 Win32::Process::Create 和 DETACHED_PROCESS 选项。

但也许您可以先让我们知道使用 start 是否对您有用。如果没有，可能start.exe 不处理斜线。在这种情况下，您可能必须使用类似

C:\\path\\to\\utility

相反（双反斜杠很重要！单个反斜杠在字符串文字中具有特殊含义；它是转义字符）。

要确定您是否在 Windows 上运行，请查看变量 $OSNAME 或 $^OS，它应该在 Windows 上显示类似“MSWin32”的内容。