Proc :: Gabelung. Proc :: Gabelung ist ein Perl-Modul, das einen Werkzeugsatz für Gabel und Daemonize bietet.
Jetzt downloaden

Proc :: Gabelung. Ranking & Zusammenfassung

Proc :: Gabelung. Stichworte

Perl-Modul Gabel dämmeln Gabelwerkzeug Daemonize-Werkzeug

Proc :: Gabelung. Beschreibung

ProC :: Gabelung ist ein Perl-Modul, das einen Werkzeugsatz für Gabel und Daemonize bietet. Proc :: Gabelung ist ein Perl-Modul, das einen Werkzeugsatz für Gabel und Daemonize bietet.Synopsis #! / Usr / bin / perl nutzen streng; Verwenden Sie PROC :: Gabert; Verwenden Sie Daten :: Dumper; Zeiteinsatz :: HIRES QW (Usleep); # zuzulassen Micro Sleep My $ F = Proc :: Gabelung-> Neu (); $ SIG {KIRK} = $ SIG {Term} = $ sig {int} = sub {$ f-> killall_childs; Schlaf 1; EXIT}, $ F-> Daemonize (## UID => 1000, ## gid => 1000, ## home => "/ tmp", pid_file => "/tmp/master.pid"); offen (stdout, ">> / tmp / master.log"); meine $ nbr = 0; mein $ timemout; während (1) {if ($ nbr <20) {mein $ extra = "andere parameter"; mein ($ status $ pid $ error) = $ f-> fork_child (funct => func, name => "new_name. #", args => , pid_file = > "/tmp/fork.##.pid", uid => 1000, gid => 1000, home => "/ tmp", max_load => 5, max_mem => 185000000, Ablauf => 10, # Expiration_Auto => 1,); if ($ status == 4) #, wenn die Last zu hoch {drucken "maximal geladen wird, drucken Sie ein wenig NAPN"; Usleep (100000); nächste; } ELSIF ($ status) # Wenn eine andere Art von Fehler {drucken "PID = $ pidt fehler = $ fredr"; Drucken von Dumper ($ f-> list_names ()); Drucken von Dumper ($ f-> list_pids ()); }} $ NBR = $ f-> pid_nbr; mein ($ n, @ dp, @dn) = $ f-> Ablauf; if ($ n) {Print-Dumper (@DP); } drucken "free = n"; Usleep (100000); # Immer eine gute Idee, einen kleinen Schlaf zu setzen, um den Task-Swapper, um freie Ressourcen zu ermöglichen mein @args = @ $ ref; meine ($ data, $ time_out, $ sockenc) = @args; $ Sig {usr1} = SUB {Öffnen Sie mein $ -Protokoll, ">> / tmp / log.s"; $ log "signal usr1 erhielt" drucken; Schließen Sie $ log; }; if (! $ time_out) {$ time_out = 3; } meine $ ff öffnen, ">> / tmp / loglist"; drucken $ ff $$, "Startzeit =", $ t; schließen $ ff; für (1 .. 4) {Öffnen Sie meine $ FH, ">> / tmp / log"; Wenn (definiert $ FH) {drucken $ FH "TMOUT = $ time_out". Zeit . "Pid = $$ cwd =". CWD :: CWD (). "Name = $ 0n"; $ fh-> schließen; } SLEEP $ TIME_OUT + RAND (5); }} Anforderungen: · Perl · IO :: Datei · CWD · SYS :: Lastanforderungen: · Perl. · IO :: Datei · CWD. · Sys :: Laden

Proc :: Gabelung. Zugehörige Software