Perl 进程管理

进程管理是任何编程语言中都非常重要的部分。Perl 提供了多种方法来管理进程，包括创建子进程、与子进程通信、以及控制进程的生命周期等。

创建子进程

创建子进程通常使用 fork 函数。这个函数会在当前进程中创建一个新的子进程。父进程和子进程都会继续执行，但是子进程会返回一个零值，而父进程会得到子进程的进程ID。

// www.javascriptcn.com code example
use strict;
use warnings;

my $pid = fork();

if (!defined $pid) {
    die "Failed to fork: $!";
} elsif ($pid == 0) {
    # 子进程
    print "This is the child process with PID: $$\n";
    exit 0;
} else {
    # 父进程
    print "This is the parent process with PID: $$\n";
    waitpid($pid, 0);  # 等待子进程结束
}

进程间通信 (IPC)

进程间通信是通过管道（pipe）、消息队列、共享内存或套接字等方式实现的。Perl 中最常用的方法是通过管道来实现简单的通信。

使用管道进行通信

管道允许进程之间发送数据。管道有两种类型：匿名管道和命名管道。

匿名管道

匿名管道通常用于父子进程之间的通信。

// www.javascriptcn.com code example
use strict;
use warnings;

my $pid = fork();

if (!defined $pid) {
    die "Failed to fork: $!";
} elsif ($pid == 0) {
    # 子进程
    close STDOUT;  # 关闭标准输出
    open(STDOUT, '>', \my $out);
    print "Hello from child\n";
    close STDOUT;
    print "Parent PID: $PPID\n";
    exit 0;
} else {
    # 父进程
    my $child_output;
    close STDIN;  # 关闭标准输入
    open(STDIN, '<', \$child_output);
    waitpid($pid, 0);
    print "Child output: $child_output";
}

命名管道

命名管道（FIFO）可以在不相关的进程之间通信。

// www.javascriptcn.com code example
use strict;
use warnings;
use File::Path qw(make_path);
use IPC::Open3;

my $fifo_name = '/tmp/perl_fifo';
make_path('/tmp');

unless (-p $fifo_name) {
    unlink $fifo_name;
    mkfifo($fifo_name, 0777) or die "mkfifo $!";
}

my $pid = fork();

if (!defined $pid) {
    die "Failed to fork: $!";
} elsif ($pid == 0) {
    # 子进程
    close STDIN;
    open(STDIN, '<', $fifo_name) or die "open $fifo_name for read: $!";
    my $line = <STDIN>;
    chomp $line;
    print "Received from parent: $line\n";
    exit 0;
} else {
    # 父进程
    close STDOUT;
    open(STDOUT, '>', $fifo_name) or die "open $fifo_name for write: $!";
    print STDOUT "Hello from parent\n";
    close STDOUT;
    waitpid($pid, 0);
}

控制进程

进程的生命周期可以通过信号（signals）来控制。Perl 提供了 kill 函数来发送信号给进程。

发送信号

// www.javascriptcn.com code example
use strict;
use warnings;
use POSIX ":sys_wait_h";

my $pid = fork();

if (!defined $pid) {
    die "Failed to fork: $!";
} elsif ($pid == 0) {
    # 子进程
    sleep 5;
    print "Child exiting...\n";
    exit 0;
} else {
    # 父进程
    sleep 1;
    kill 'TERM', $pid;
    my $child_exit_status;
    waitpid($pid, WNOHANG, $child_exit_status);
    if ($child_exit_status == -1) {
        warn "waitpid failed: $!";
    } else {
        print "Child exited with status $child_exit_status\n";
    }
}

以上就是 Perl 进程管理的基础知识。希望这些示例代码能帮助你更好地理解和应用这些概念。