Question

如何在分叉进程之间共享相同的变量？或者，我是否需要写入父文件中的文件，然后在文件存在后读取保存到子文件中的值？ $ something似乎永远不会在此设置，所以它只是在睡眠中循环

my $something = -1;
&doit();
sub doit
{

 my $pid = fork();
 if ($pid == 0)
 {
      while ($something == -1)
      {
         print "sleep 1\n";
         sleep 1;
      }
      &function2();
 }
 else
 {
     print "parent start\n";
    sleep 2;
    $something = 1;
    print "parent end: $something\n";
 }
}

sub function2 {
   print "END\n";
}

Answer 1

perldoc -f fork：

共享文件描述符（有时是对这些描述符的锁定），而其他所有内容都被复制。

另请参阅perldoc perlipc中的Bidirectional Communication with Yourself。

更新：第二个想法，你想要这样的东西吗？

#!/usr/bin/perl

use strict;
use warnings;

my $pid = fork;

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

if ($pid == 0) {
    print "Child start\n";
    my $end;
    local $SIG{HUP} = sub { $end = 1 };

    until ($end) {
        print "Sleep 1\n";
        sleep 1;
    }
    function2();
}
else {
    print "Parent start\n";
    sleep 5;
    kill HUP => $pid;
    waitpid($pid, 0);
}

sub function2 {
    print "END\n";
}

输出：

C:\Temp> w
Parent start
Child start
Sleep 1
Sleep 1
Sleep 1
Sleep 1
Sleep 1
END

Answer 2

变量通常不在进程之间共享，如果要通信2个进程，最好使用管道或共享内存或任何其他IPC。

Answer 3

如果你真的想使用一个表面看起来像对变量的读/写访问权限的接口在多个进程之间共享状态，你可能需要查看IPC::Shareable。

Answer 4

我相信你想要使用线程;进程不是线程（尽管在某个时间点，Linux线程是使用与其父进程共享内存的特殊类型的进程实现的。）

Answer 5

您有几种选择。 Threads，sockets，IPC并使用文件锁定写入文件。我个人推荐使用线程，它们在Perl中非常简单和安全，大多数安装都会编译它们，并且一旦创建了一个线程，它们就会非常高效。

一个有趣的替代方案是forks模块，它使用fork（）和套接字的组合来模拟线程。我自己从未使用过，但Elizabeth Mattijsen知道她的话。

如何判断分叉的子节点在Perl中终止？

5 个答案: