如何在 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() （这有点复杂，因为您无法将 stdout 重定向到日志文件很简单，您首先必须在 Perl 中打开它，并在调用新进程之前将其设置为分叉子进程的标准输出）。如果您的 Windows Perl 没有 fork() 模拟，您还需要一个代码分支，因为在这种情况下您只能在 UNIX 上使用 fork() 并且您需要在 Windows 上将 Win32::Process::Create 与 DETACHED_PROCESS 选项结合使用。

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

C:\\path\\to\\utility

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

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