Perl 进程管理

Perl - 进程管理

Perl 提供了多种方式与操作系统交互以创建和管理进程。这对于运行外部命令、并行处理任务或构建系统工具至关重要。

特殊变量 $$（或使用 use English; 后的 $PROCESS_ID / $PID）保存当前进程的 ID。
每个新进程通常继承父进程的环境变量的副本（通过 %ENV 访问）。
exit() 函数终止当前进程。在子进程中，它只退出该子进程。
通过 fork() 创建的子进程通常会复制打开的文件句柄。在一个进程中关闭句柄不会影响另一个进程，除非句柄引用的是由操作系统管理的共享资源。

执行外部命令

反引号操作符 (`command` 或 `qx//`)

执行外部命令并捕获其标准输出（STDOUT）最简单的方法是使用反引号（backticks）或 qx//（quote execute）操作符。命令在一个子 shell 中运行，其输出以字符串形式（在标量上下文 scalar context 中）或行列表形式（在列表上下文 list context 中）返回。

#!/usr/bin/env perl
use strict;
use warnings;

my $current_directory_listing = `ls -l`; # Scalar context: output as single string
print "Listing (scalar context):\n$current_directory_listing\n";

my @files = `ls -a`; # List context: output as list of lines (chomp often needed)
print "Files (list context, first 3):\n";
chomp(@files); # Remove newlines
for my $i (0 .. ( $#files > 1 ? 1 : $#files ) ) { # Print up to first 2 files if they exist
    print "- $files[$i]\n" if defined $files[$i];
}

my $date_output = qx(date);
chomp $date_output;
print "Current date: $date_output\n";

输出可能如下：

Listing (scalar context):
total 8
-rw-r--r-- 1 user group 123 Feb 17 10:00 somefile.txt
-rwxr-xr-x 1 user group 456 Feb 17 10:01 myscript.pl

Files (list context, first 3):
- .
- ..
Current date: Sat Feb 17 10:05:00 CST 2024

`system()` 函数

system() 函数也执行外部命令。与反引号不同，它返回命令的退出状态（exit status）（0 表示成功，非零表示失败）。命令的输出会发送到与 Perl 脚本相同的 STDOUT/STDERR，除非在命令字符串本身中进行了重定向。

#!/usr/bin/env perl
use strict;
use warnings;

print "Running 'ls -l' via system():\n";
my $exit_status = system("ls -l");

if ($exit_status == 0) {
    print "\n'ls -l' executed successfully.\n";
} else {
    # Exit status is complex, see perldoc -f system for details
    my $actual_signal = $exit_status & 127;
    my $core_dumped   = $exit_status & 128;
    my $actual_exit   = $exit_status >> 8;
    warn "\n'ls -l' failed. Exit code: $actual_exit, Signal: $actual_signal, Core dumped: $core_dumped\n";
}

# Shell variable interpolation depends on quoting:
my $perl_var = "Perl Variable Content";
system('echo $HOME'); # Single quotes: $HOME is shell variable
system("echo $perl_var"); # Double quotes: $perl_var is Perl variable
system("echo \$HOME"); # Double quotes, escaped $: $HOME is shell variable

如果 system 接收到一个包含 shell 元字符（metacharacters）的单个参数，它会将该字符串传递给 shell 进行解析。如果接收到多个参数（system 'program', 'arg1', 'arg2'），它会直接执行程序而不进行 shell 插值（interpolation），这更安全。

# Safer way to call system, avoids shell interpretation
# system('my_program', $user_input1, $user_input2);

使用 `fork()` 创建子进程

fork() 函数创建一个新进程（子进程 child process），它是调用进程（父进程 parent process）的几乎完全复制。这是在类 Unix 系统上实现并行性的主要方式。Perl 在 Windows 上模拟了 fork()，但其行为可能有所不同。

在父进程中，fork() 返回新创建的子进程的进程 ID（PID）。
在子进程中，fork() 返回 0。
如果 fork 失败，fork() 返回 undef 并设置 $!。

#!/usr/bin/env perl
use strict;
use warnings;

my $pid = fork();

die "Cannot fork: $!" unless defined $pid;

if ($pid == 0) {
    # Child process
    print "[Child $$] Executing 'date' command...\n";
    # exec() replaces the child process with the new command
    exec('date') or die "[Child $$] Can't exec 'date': $!";
    # exec never returns if successful
} else {
    # Parent process
    print "[Parent $$] Forked child with PID: $pid\n";

    # Wait for the child process to terminate
    my $waited_pid = waitpid($pid, 0); # 0 means no special options
    if ($waited_pid == -1) {
        warn "[Parent $$] Error waiting for child $pid: $!";
    } elsif ($waited_pid == $pid) {
        my $child_exit_status = $? >> 8; # Get actual exit status
        print "[Parent $$] Child process $pid finished with exit status: $child_exit_status\n";
    }
    print "[Parent $$] Parent process exiting.\n";
}

输出 (PID 会变化)：

[Parent 23451] Forked child with PID: 23452
[Child 23452] Executing 'date' command...
Sat Feb 17 10:15:00 CST 2024
[Parent 23451] Child process 23452 finished with exit status: 0
[Parent 23451] Parent process exiting.

管理子进程

exec()： 用新程序替换当前进程映像。成功时它不会返回。

wait() 和 waitpid()： 这些函数由父进程使用，用于等待其子进程终止并检索它们的退出状态。waitpid($pid, $flags) 等待特定的子进程，而 wait() 等待任何子进程。未能等待子进程可能导致产生“僵尸”进程（zombie processes）。

避免僵尸进程： 如果你不需要知道子进程的退出状态，可以通过设置 SIGCHLD（子进程终止信号）的信号处理器来告诉系统自动回收它们：

$SIG{CHLD} = 'IGNORE'; # On many Unix systems, this auto-reaps children.
# Or, for more complex handling:
# $SIG{CHLD} = sub { while (waitpid(-1, WNOHANG) > 0) {} };

`kill()` 函数

kill($signal, @pids) 函数向进程列表发送一个信号。信号是类 Unix 系统上的一种进程间通信形式。

#!/usr/bin/env perl
use strict;
use warnings;

# Example: Sending SIGTERM (terminate) to processes 1234 and 5678
# my $count = kill('TERM', 1234, 5678);
# print "Sent TERM signal to $count processes.\n";

# To send a signal to the current process group:
# kill('INT', 0);

# Note: Using kill('KILL', $pid) on a forked child in Perl on Windows
# (where fork is emulated) might not clean up resources properly.
# For a list of signal names, run: kill -l (on Unix-like systems)
# or see `Config %SIG` in Perl.

现代进程管理模块

虽然 Perl 内建的函数功能强大，但一些 CPAN 模块提供了更高级别的抽象和更多特性用于进程管理：

IPC::Run：一个多功能的模块，用于运行子进程并与其交互，管理它们的 STDIN、STDOUT 和 STDERR。
Proc::Background：简化了在后台运行进程的操作。
Parallel::ForkManager：帮助管理一组 fork 出的子进程，用于并行任务执行。

这些模块通常可以简化复杂的进程交互场景，并提供更健壮的错误处理。

Perl 进程管理

Perl - 进程管理

执行外部命令

反引号操作符 (`command` 或 qx//)

system() 函数

使用 fork() 创建子进程