perl의 파일 시스템 이벤트에서 하위 프로세스 포킹

Question

Inotify2를 사용하여 들어오는 파일의 디렉토리를 감시하는 Perl로 작성된 데몬 프로세스가 있습니다. 각 파일이 도착하면 데몬은 하위 프로세스를 포크합니다. 자, 내가 내 로그 파일에서이 오류를 얻었 기 때문에 너무 많은 파일이 동시에 (따라서 너무 많은 포크)에 도착하는 것 같다 포크의 결과입니다

Cannot allocate memory at notifyd.pl line ... 

을(). 내가 프로세스를 분기하지 않음으로써 이벤트를 놓칠 여유가 없다

sub watcher { 
     my $e = shift; 
     my $pid = fork(); 
     if(!defined $pid) { 
      print "[ERROR]", $!; 
     } 
     elsif($pid == 0) { 
      my @args = ($e->fullname, $e->mask); 
      exec($childprocess, @args) or die($!); 
     } 
} 

: 포크와 다음 execv와 일을

my $inotify = new Linux::Inotify2() or die($!); 

    foreach my $k (@PATHS) { 
     $inotify->watch($k, 
IN_MOVE_SELF|IN_DELETE_SELF|IN_CLOSE_WRITE, \&watcher) or die($!); 
    } 

    $inotify->blocking(1) or die($!); 

    for(;;) { 
     $inotify->poll() or die($!); 
    } 

감시자 기능 :

는 기본적으로 나는 다음과 같은 코드가 있습니다.

누구나 내가 이것을 개선하고 포크가 실패하지 않도록하는 방법에 대한 제안 사항이 있습니까?

---

편집 : 그것은 데몬이 SIGCHLD에 응답하지 것이기 때문에 그들이 종료되면 자식 프로세스가 좀비가되는 것처럼 보인다. 그래서 많은 zombie 자식 프로세스가 fork()가 실패한 이유가 될 수 있습니다. 데몬은 이제 분기하기 전에 $SIG{CHLD} = 'IGNORE';을 수행합니다.

Answer 1

간접 참조의 다른 계층을 추가하여 문제를 해결하십시오.

이벤트를 받으면 파일 이름을 job queue에 넣으십시오. 리소스가 합리적으로 여유가 없을 때 큐는 파일을 처리하는 새로운 작업을 시작합니다. 이 계획은 이벤트가 결국에는 즉시 실행되도록 보장합니다. 모든 이벤트가 즉시 처리되는 것은 아닙니다.

Answer 2

사용 Forks::Super

이 설정 같은보다 강력한 백그라운드 프로세스 매니저는, 예를 들어, 한 번에 실행 최대 10 포크를해야합니다. 10 개의 포크가 모두 사용 중일 때 새로운 요청이 대기열에 배치됩니다. 큐에있는 작업은 다른 백그라운드 프로세스가 완료되고 리소스를 사용할 수있게되면서 실행됩니다.

use Forks::Super MAX_PROC => 10, ON_BUSY => 'queue'; 

... 

sub watcher { 
    my $e = shift; 
    fork { 
     sub => sub { 
      my @args = ($e->fullname, $e->mask); 
      exec($childprocess, @args) or die($!); 
     } 
    }; 
}