Proc :: Forking proc :: Forking is een Perl-module die een reeks gereedschap biedt aan vork en daemonize.
Download nu

Proc :: Forking Rangschikking & Samenvatting

Proc :: Forking Tags

Perl-module vork daemoniseren vorkgereedschap daemon gereedschap

Proc :: Forking Beschrijving

Proc :: Forking is een Perl-module die een reeks gereedschap biedt aan vork en daemoniseren. Proc :: Forking is een Perl-module die een reeks gereedschap biedt aan vork en daemonize.synopsis #! / Usr / bin / perl gebruik strikt; Gebruik proc :: Forking; Gebruik gegevens :: Dumper; Gebruik de tijd :: Huurt QW (Usleep); # Om Micro Sleep My $ F = proc :: Forking-> NIEUW (); $ SIG {kill} = $ sig {term} = $ sig {int} = sub {$ f-> killall_childs; slaap 1; Exit}, $ F-> Daemonize (## UID => 1000, ## GID => 1000, ## Home => "/ TMP", PID_FILE => "/TMP/Master.pid"); open (stdout, ">> / tmp / master.log"); mijn $ NBR = 0; mijn $ time-out; terwijl (1) {if ($ nbr <20) {mijn $ extra = "andere parameter"; mijn ($ status $ pid $ fout) = $ f-> Fork_child (functie => FUNC, NAME => "NEW_NAME. ##", ARGS => , PID_FILE = > "/TMP/FORK.##.PID", UID => 1000, GID => 1000, home => "/ tmp", max_load => 5, max_mem => 185000000, expiration => 10, # expiration_Auto => 1,); if ($ Status == 4) # Als de belasting wordt tot hoge {print "Max-belasting bereikt, doet u een beetje napn"; usleep (100000); De volgende; } Elsif ($ Status) # Als een ander soort fout {print "PID = $ PIDT-fout = $ erkende"; Print Dumper ($ F-> LIST_NAMES ()); Print Dumper ($ F-> LIST_PIDS ()); }} $ NBR = $ F-> PID_NBR; mijn ($ n, @dp, @dn) = $ f-> expiraat; if ($ n) {print dumper (@DP); } Print "gratis = n"; usleep (100000); # Altijd een goed idee om een kleine slaap te maken om taakwissel toe te staan om een aantal gratis bronnen te krijgen} Sub Func {My $ Ref = Shift; mijn @args = @ $ ref; mijn ($ gegevens, $ time_out, $ sockc) = @args; $ SIG {USR1} = sub {Open mijn $ log, ">> / tmp / log.s"; Print $ log "Signaal USR1 ontvangen"; Sluiten $ log; }; if (! $ time_out) {$ time_out = 3; } Open mijn $ FF, ">> / TMP / loglijst"; Print $ FF $$, "starttijd =", $ ^ t; Sluit $ FF; Voor (1 .. 4) {Open mijn $ FH, ">> / TMP / LOG"; if (gedefinieerd $ FH) {print $ fh "tmout = $ time_out". tijd . "PID = $$ cwd =". CWD :: CWD (). "Naam = $ 0N"; $ FH-> Sluiten; } Slaap $ time_out + rand (5); }} Vereisten: · PERL · IO :: Bestand · CWD · SYS :: Load-eisen: · Perl · IO :: Bestand · CWD · Sys :: Load

Proc :: Forking Gerelateerde software