Proc :: 포크 PROC :: PROCKING은 포크 및 데몬을 포크 및 데몬 화하는 도구 세트를 제공하는 PERL 모듈입니다.
지금 다운로드

Proc :: 포크 순위 및 요약

Proc :: 포크 태그

Perl 모듈 포크 데몬으로 만들어졌다 포크 도구 대조주화 도구

Proc :: 포크 설명

PROC :: FORKing은 포크 및 데몬을 포크 및 데몬 화하는 도구 세트를 제공하는 Perl 모듈입니다. Proc :: Forking은 포크 및 대조주화 할 수있는 도구 세트를 제공하는 Perl 모듈입니다 .Synopsis #! / usr / usr / enl / perl은 엄격합니다. proc :: 포크를 사용하십시오; 데이터 :: Dumper; 사용 시간 :: QW (USLEEP)를 고용합니다. # 마이크로 수면을 허용하려면 $ f = proc :: 포크 -> new (); $ sig {kill} = $ sig {term} = $ sig {int} = sub {$ f-> killall_childs; 수면 1; 종료}, $ f-> desemonize (## uid => 1000, ## gid => 1000, ## home => "/ tmp", pid_file => "/tmp/master.pid"); 열기 (stdout, ">> / tmp / master.log"); 내 $ NBR = 0; 내 $ timemout; (1) {($ NBR <20) {my $ extrail = "다른 매개 변수"; my ($ status $ pid $ error) = $ f-> fork_child (function => func, name => "new_name. ##", args => , pid_file = > "/tmp/fork.##.pid", uid => 1000, gid => 1000, home => "/ tmp", max_load => 5, max_mem => 185000000, 만료 => 10, # expiration_auto => 1, ); if ($ status == 4) #로드가 높게 {인쇄 됨 "최대로드가 도달되면, 작은 napn"; USLEEP (100000); 다음; } ELSIF ($ status) # 다른 종류의 오류 {print "pid = $ pidt error = $ errorn"인 경우; 인쇄 덤퍼 ($ F-> LIST_NAMES ()); 인쇄 덤퍼 ($ F-> LIST_PIDS ()); }} $ nbr = $ f-> pid_nbr; MY ($ n, @dp, @dn) = $ f-> 만기; if ($ n) {인쇄 dumper (@DP); } "FREE = N"인쇄; USLEEP (100000); # 작업 swapper가 무료 리소스를 얻기 위해 작은 수면을 입력하는 것이 좋습니다.} sub func {my $ ref = shift; my @args = @ $ ref; My ($ 데이터, $ time_out, $ sockc) = @args; $ sig {usr1} = sub {my $ log, ">> / tmp / log.s"; $ log "signal usr1 repencedn"을 인쇄하십시오. $ log를 닫습니다; }; if (! $ time_out) {$ time_out = 3; } My $ FF, ">> / TMP / LOGLIST"를 엽니 다. $ FF $$, "시작 시간 =", $ ^ t; $ FF 닫기; (1 .. 4) {내 $ FH 열기 ">> / TMP / log"; if (defined $ fh) {print $ fh "tmout = $ time_out". 시각 . "pid = $$ cwd =". CWD :: CWD (). "이름 = $ 0n"; $ fh-> 닫기; } 수면 $ TIME_OUT + RAND (5); }} 요구 사항 : · Perl · IO :: File · CWD · SYS ::로드 요구 사항 : · Perl. · io :: File. · CWD. · SYS :: Load.

Proc :: 포크 관련 소프트웨어