Perl의 프로세스간에 메시지 보내기

Question

신호를 사용하는 프로세스간에 통신을 구현하려고합니다. 먼저 부모 프로세스가 자식 프로세스를 시작하고 작업을 수행 한 다음 자식 메시지를 기다린 다음 자식 프로세스에 다시 신호를 보내 프로세스를 계속 진행할 수 있습니다.

내가이를 구현하기위한 올바른 접근 방식이지만, 여기 내 첫 번째 시도 무엇인지 확실하지 않다 :

use warnings; 
use strict; 
use feature qw(say); 

my $forever=1000000; 
my $parPID=$$; 
my $child = fork(); 
if($child == 0){ 
    runSubProc($parPID,$forever); 
} 

$SIG{"USR1"}=sub { 
    say "Parent: got signal 1"; 
    $SIG{"USR1"}=sub { 
    say "Parent: got signal 2"; 
    exit 0; 
    }; 
    sleep 5; 
    kill 'USR1', $child; 
    sleep $forever; 
}; 

say "Waiting for child processes.."; 
sleep $forever; 


sub runSubProc { 
    my ($parPID,$forever)=@_; 

    $SIG{"USR1"}=sub { 
    say "Child: got signal 1"; 
    $SIG{"USR1"}=sub { 
     say "Child: got signal 2"; 
     exit 0; 
    }; 
    sleep 7; 
    kill 'USR1', $parPID; 
    sleep $forever; 
    }; 
    sleep 5; 
    kill 'USR1', $parPID; 
    sleep $forever; 
} 

이 작동하지 않는, 출력은 : 다음

Waiting for child processes.. 
Parent: got signal 1 
Child: got signal 1 

과 응답하지 않습니다.

Answer 1

근본 원인은 신호 처리기 내에 sleep $forever입니다. 귀하의 프로세스가 이기 때문에 이미에 'SIGUSR1'을 처리하면 다음 킬 신호가 처리되지 않습니다. 이것은 신호를 방해하는 신호로 모든 종류의 불안을 피하기위한 것입니다. 핸들러 내에서 차단되는 것을 피하십시오.

이

가 작동하는 것 같다 :

$SIG{'USR1'} = \&handle_USR1; 

my $ppid  = $$; 
my $child_pid = fork(); 

sub handle_USR1 { 
    if ($signalled++) { print "$$: got second USR1\n"; exit 0 } 

    print "$$: caught SIGUSR1\n"; 
    if (not $child_pid) { 
     print "$$: Child got a SIGUSR1\n"; 
     sleep 7; 
     print "$$: (child) sending signal to $ppid\n"; 
     kill 'USR1', $ppid; 
    } else { 
     print "$$: (parent) got USR1\n"; 
     sleep 5; 
     print "$$: parent signalling child\n"; 
     kill 'USR1', $child_pid; 
    } 
} 

if ($child_pid) { 
    print "$$ (parent) waiting\n"; 
    sleep 500; 
} else { 
    print "$$: (child) waiting\n"; 
    sleep 5; 
    print "$$: Child signalling $ppid\n"; 
    kill 'USR1', $ppid; 
    sleep 500; 
} 

당신은 조금 있지만 핵심 포인트를 개편해야 할 수도 있습니다 - 파리에 신호 핸들러를 재정의하고, 가장 특히 거기에 수면을 넣어 그들을 '실속' 신호 메커니즘을 깨뜨릴 것입니다.