PROC ::フォーキング

PROC :: Forkingは、フォークとデーモン化にツールのセットを提供するPerlモジュールです。
今すぐダウンロード

PROC ::フォーキング ランキングとまとめ

広告

  • Rating:
  • ライセンス:
  • Perl Artistic License
  • 価格:
  • FREE
  • 出版社名:
  • Fabrice DULAUNOY
  • 出版社のWebサイト:
  • http://search.cpan.org/fdulau/Tie-Hash-RegexKeys-1.2/RegexKeys.pm

PROC ::フォーキング タグ


PROC ::フォーキング 説明

PROC ::フォークは、フォークとデーモン化するためのツールのセットを提供するPerlモジュールです。 PROC ::フォークは、フォークとdaemonize.SYNOPSIS#へのツールのセットを提供するPerlモジュールである/ usr / bin / perlが厳しい使用します!。 PROC ::フォークを使用します。 DATA :: DUMPERを使用してください。時間::ハイレゾQW(はusleep)を使用します。 #マイクロスリープを許可するように私の$ F = PROC :: Forking->新しいです(); $ SIG {KILL} = $ SIG {TERM} = $ SIG {INT} =サブ{$ F-> killall_childs;睡眠1。終了}、$ F->デーモン化(## UID => 1000年、## GID => 1000年、##ホーム=> "を/ tmp"、pid_file => "/tmp/master.pid");オープン(STDOUT、 ">> / tmpに/ master.log");私の$ NBR = 0;私の$ timemout。 (1){場合($ NBR <20){私の$余分= "他のパラメータ" しばらく;私の($の状態、$ pidを、$エラー)= $ f-> fork_child(機能=> FUNC、名前=> "NEW_NAME。##"、引数=> 、pid_file = > "/tmp/fork.##.pid"、UID => 1000年、GID => 1000年、ホーム=> "を/ tmp"、MAX_LOAD => 5、max_mem =>1.85億、有効期限=> 10、#expiration_auto => 1)。もし($状態== 4){#印刷高への負荷になる場合は、「最大負荷に達し、少しnapnを行います」。 usleep(100000)。次; }($状態)#ELSIF {プリント "PID = $ pidt誤差= $ errorn" エラーの別の種類であれば、ダンパを印刷($ F-> list_names());ダンパを印刷($ F-> list_pids()); }} $ NBR = $ F-> pid_nbr。私の($ nは、@dp、@dn)= $ F-> expirate。 ($ n)の場合{ダンパー(@dp)を印刷します。 }「自由= N」を印刷します。 usleep(100000)。 #常に良いアイデアは、タスクスワッパは、いくつかのリソースを解放}サブFUNC {私の$ REF =シフトを得ることができるように小さな睡眠を配置します。私@args = @ $ refを。私の($データ、$ TIME_OUT、$ sockC)= @args。 $ SIG {} USR1 =サブ{私の$ログを開く、 ">> / tmpに/ log.s"; $ログ「信号USR1 receivedn」を印刷します。近い$ログ。 ;;もし{$ TIME_OUT = 3($ TIME_OUT!)。 }私の$ FF、 ">> / tmpに/ loglist" を開きます。 、$$ $ FFを印刷する "開始時刻="、$ ^ T;近くに$ FF。 (1 .. 4){私の$ FHを開くために、 ">> / tmpに/ログ"; ($ FHを定義する)場合、{ "TMOUT = $ TIME_OUT" FH $を印刷します。時間 。 "PID = $$ CWD ="。 CWD :: CWD()。 "名前= $ 0N"。近いです$ fh->。 +ランド(5)TIME_OUT}睡眠$。 }}要件:・パール・IO ::ファイル・CWD・のSys ::ロードの要件: ・Perl ・IO ::ファイル ・CWD ・のSys ::ロード


PROC ::フォーキング 関連ソフトウェア