Question

我是IPC的新手，任何人都可以给我一个带Perl的简单IPC示例，其中孩子可以向其父母发送信号，父母可以捕捉并做出反应。我尝试了很多东西，但是只有当我按下control-C时才会做出反应，但不是每隔5秒按照我的意图做出反应......

注意：它适用于Linux，但不适用于Windows。

use strict;
use warnings;
my $parent_pid = $$;
my $pid = fork();
if($pid == 0) {
   while (1) {
       print "In Child...\n";
       sleep 5;
       print "Sending INT to my parent...\n";
       kill 'INT', $parent_pid;
   }
}
else {
   sub catch_zap {
      my $signame = shift;
      print "Somebody sent me a SIG $signame!";
   }
   while(1){
      sleep 1;
      print "inside parent\n";
      eval {
         $SIG{INT} = \&catch_zap;
      };
   }
}

Answer 1

Windows doesn't do signals。您可能希望改为使用sockets。

Perl IPC，孩子向父母发送中断

1 个答案: