asin:B0043GXMTS
Perl Cookbook
(English, Kindle Ed.)
Christiansen / Torkington
[邦鐃緒申: Perl鐃緒申鐃獣ワ申鐃瞬ッワ申]

solo 鐃夙わ申鐃緒申名鐃緒申鐃緒申 perl script 鐃緒申App::solo 鐃夙わ申鐃緒申名鐃叔ワ申蝓種申鐃緒申鐃緒申泙鐃緒申鐃緒申鐃�

鐃竣ワ申鐃緒申鐃緒申鐃瞬の器申鐃緒申鐃春わ申鐃緒申他鐃緒申鐃獣ワ申 - (鐃緒申)鐃緒申鐃�
  • 鐃竣ワ申鐃緒申鐃緒申鐃瞬わ申鐃緒申他的鐃渋行わ申鐃緒申鐃醇し鐃緒申鐃緒申
  • 鐃緒申鐃緒申鐃緒申峽于瓩件申鐃緒申鐃渋行でわ申鐃緒申茲�鐃祝わ申鐃緒申鐃緒申

鐃緒申鐃緒申鐃緒申个鐃緒申鐃緒申眠鐃緒申鐃緒申任鐃緒申鐃�

鐃淑駕申鐃緒申POD鐃塾常申鐃緒申鐃緒申

NAME
    solo - run only one process up to given timeout.
SYNOPSIS
    solo -t seconds [-P pidfile] [-K signal] cmd ...

DESCRIPTION
    cmd鐃淑降で誌申鐃所さ鐃曙た鐃緒申鐃殉ワ申匹髻�逸申鐃緒申鐃緒申鐃緒申鐃渋湘�鐃祝実行わ申鐃殉わ申鐃緒申
    鐃緒申鐃緒申鐃緒申屬鐃潤ぎ鐃緒申鐃初コ鐃殉ワ申匹鐃�SIGTERM鐃緒申鐃緒申鐃緒申泙鐃緒申鐃�

    cmd鐃緒申鐃緒申鐃叔に実刻申鐃緒申両鐃順、鐃渋刻申鐃緒申離鐃緒申泪鐃宿わ申PID鐃緒申鐃緒申鐃獣わ申
    鐃緒申鐃初ー鐃緒申奪鐃緒申鐃緒申鐃緒申鐃緒申鐃熟わ申鐃曙た鐃遵、cmd鐃緒申孫圓鐃緒申襪鰹申箸覆鐃緒申鐃塾誌申鐃緒申泙鐃緒申鐃�
    
    鐃緒申鐃緒申離鐃緒申奪鐃緒申鐃藷が異常終了鐃緒申鐃銃わ申鐃緒申鐃緒申鐃祝は￥申鐃緒申鐃緒申離鐃緒申奪鐃緒申鐃緒申僚鐃塾誌申鐃緒申
    鐃薯エラー鐃緒申奪鐃緒申鐃緒申鐃緒申箸鐃緒申峠鐃緒申呂鐃緒申鐃緒申鐃�cmd鐃緒申孫圓鐃緒申襪鰹申箸覆鐃緒申鐃塾誌申鐃緒申泙鐃緒申鐃�
鐃緒申鐃緒申鐃緒申魯鐃緒申鐃緒申爛�鐃緒申鐃夙の常申鐃緒申泙澆泙鐃緒申鐃�

    -f
      鐃緒申鐃緒申離鐃緒申奪鐃緒申鐃藷が異常終了鐃緒申鐃銃わ申鐃緒申鐃緒申鐃祝も強鐃緒申的鐃祝ワ申鐃殉ワ申匹鐃渋行わ申鐃殉わ申鐃緒申
      鐃緒申鐃塾常申鐃祝もセ鐃獣ワ申鐃緒申鵑�進刻申鐃緒申両鐃緒申砲鐃�solo鐃熟実行わ申鐃緒申櫃鐃緒申鐃緒申鐃緒申鐃塾縁申佞鐃緒申鐃�
      鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申

    -t seconds
      鐃緒申鐃瞬わ申鐃獣で誌申鐃所し鐃殉わ申鐃緒申鐃緒申略鐃緒申鐃曙た鐃緒申隋�86400(=1鐃緒申)鐃緒申鐃緒申鐃所さ鐃緒申泙鐃緒申鐃�
      Time::HiRes鐃塾わ申鐃緒申鐃緒申鐃叔常申鐃緒申鐃緒申鐃淑駕申鐃塾誌申鐃緒申鐃緒申能鐃叔わ申鐃緒申

    -P pidfile
      PID鐃春ワ申鐃緒申鐃緒申琉鐃緒申屬鐃緒申鐃所し鐃殉わ申鐃緒申鐃叔フワ申鐃緒申箸任鐃� root鐃緒申鐃渋で実行わ申鐃曙た鐃緒申鐃緒申
      "/var/run/cmd.pid" 鐃薯、わ申鐃緒申奮鐃緒申任鐃�"/var/tmp/cmd.pid"鐃緒申鐃術わ申鐃殉わ申

    -K signal
      鐃叔フワ申鐃緒申箸鐃�SIGTERM鐃淑鰹申鐃塾ワ申鐃緒申鐃淑ワ申鐃緒申鐃所し鐃殉わ申鐃緒申
鐃渋刻申鐃緒申 
% cat sleep.pl
#!/usr/bin/env perl
use strict;
use warnings;
my $seconds = shift || 1;
while ($seconds > 0) {
    print $seconds--, "\n";
    sleep 1;
}    
% ./sleep.pl 3
3
2
1
% solo -t 2 ./sleep.pl 3
3
2
./sleep.pl: Operation timed out
% solo -t 2 ./sleep.pl 3
./sleep.pl: Last session ended abnormally: Operation timed out (60).
% solo -f -t 4 ./sleep.pl 3
3
2
1
% solo ./sleep.pl 3
3
2
1

鐃緒申鐃藷スト￥申鐃緒申

cpanminus鐃緒申git鐃緒申鐃出縁申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃叔￥申鐃淑駕申鐃塾よう鐃祝わ申鐃銃逸申発鐃叔ワ申鐃藷スト￥申鐃緒申任鐃緒申泙鐃緒申鐃�

% cpanm git://github.com/dankogai/p5-app-solo.git

miyagawa++;

鐃緒申鐃緒申鐃遵ア鐃暑か鐃緒申Unix鐃緒申存鐃緒申鐃緒申箒�鐃緒申鐃緒申鐃殉ワ申匹覆里如鐃�CPAN鐃祝は上げ鐃淑わ申鐃叔わ申鐃緒申鐃殉わ申鐃緒申

鐃緒申鐃緒申鐃夙わ申鐃緒申鐃緒申由

鐃純え鐃出￥申鐃春ワ申鐃緒申鐃暑オ鐃緒申鐃出￥申鐃緒申孫圓鐃緒申襯刻申鐃緒申鐃竣トは￥申鐃緒申鐃駿わ申孫圓任鐃緒申鐃夙フワ申鐃緒申鐃暑オ鐃緒申鐃出￥申/鐃出ッワ申鐃薯繰わ申鐃瞬わ申鐃銃フワ申奪廚鐃緒申鐃塾で￥申鐃緒申鐃駿フワ申鐃緒申鐃暑オ鐃緒申鐃出￥申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃瞬は実行でわ申鐃淑わ申鐃処う鐃祝わ申鐃緒申鐃緒申

鐃夙わ申鐃緒申鐃緒申鐃夙でわ申鐃緒申弌鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申呂鐃緒申離鐃緒申泪鐃宿はわ申鐃盾そ鐃緒申複鐃緒申鐃渋行でわ申鐃淑わ申鐃処う鐃祝わ申鐃緒申鐃緒申鐃緒申鐃処い鐃叔わ申鐃緒申鐃緒申鐃春に逸申鐃緒申鐃緒申屬鐃出わ申鐃祝緒申了鐃緒申鐃緒申鐃塾でわ申鐃緒申鐃渋�鐃渋に再実行でわ申鐃緒申茲�鐃祝なってわ申鐃緒申个覆鐃祝常申泙鐃緒申鐃緒申錣縁申任鐃緒申鐃�

solo鐃叔は￥申鐃緒申鐃緒申鬚海里茲�鐃祝わ申鐃銃実行わ申鐃銃わ申鐃殉わ申鐃緒申

  • PID鐃春ワ申鐃緒申鐃緒申鐃緒申鐃緒申鐃獣ワ申鐃緒申存鐃淳わ申鐃銃わ申鐃緒申丱鐃緒申蕁種申鐃獣ワ申鐃緒申鐃緒申鐃緒申表鐃緒申鐃緒申鐃銃緒申了鐃緒申
  • fork鐃緒申鐃緒申鐃遵、鐃緒申鐃殉ワ申匹鐃述プワ申鐃緒申鐃緒申鐃緒申exec鐃緒申鐃緒申PID鐃春ワ申鐃緒申鐃緒申鐃緒申鐃緒申
  • 鐃銃プワ申鐃緒申鐃緒申鐃熟￥申鐃緒申分鐃緒申鐃夙わ申alarm鐃薯かわ申鐃緒申鐃遵、鐃述プワ申鐃緒申鐃緒申鐃緒申wait鐃緒申
    • 鐃緒申分鐃緒申鐃夙わ申alarm鐃緒申鐃緒申鐃緒申鐃獣わ申鐃初、即鐃渋に子プワ申鐃緒申鐃緒申鐃緒申kill
  • PID鐃春ワ申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申峠鐃塾誌申鐃�

鐃淑駕申鐃緒申鐃緒申鐃塾ワ申鐃緒申鐃緒申鐃淑�鐃祝なわ申泙鐃緒申鐃�

eval {
    local $SIG{ALRM} = sub { die ETIMEDOUT, "\n" };
    alarm $timeout;
    $cpid = fork();
    die $! unless defined $cpid;
    if ($cpid) {
        print {$pidfh} $cpid, "\n";
        close $pidfh;
        wait;
    }
    else {
        exec $cmd, @ARGV;
    }
    alarm 0;
};
cleanup(($? || $@);

鐃渋はわ申鐃曙、lleval鐃叔わ申箸辰討鐃緒申鐃銃ワ申鐃祝ッワ申鐃叔￥申Perl Cookbook鐃緒申鐃緒申16鐃熟にわ申椶辰討鐃緒申泙鐃緒申鐃�IPC鐃緒申鐃緒申澆両鐃緒申鐃緒申鐃書しわ申鐃緒申縫優奪箸任鐃暑構探鐃緒申鐃祝わ申鐃緒申鐃塾で￥申鐃緒申鐃緒申鐃所元鐃祝わ申鐃緒申鐃銃わ申鐃緒申鐃夙緒申鐃緒申鐃緒申鐃殉わ申鐃緒申鐃術醐申鐃�Kindle鐃叔でわ申2,000鐃淳わ申鐃准ってまわ申鐃緒申鐃緒申

Enjoy!

Dan the Man with Too Many Processes to Kill