ごめんなさい。ごめんなさい。ごめんなさい。

今日は奮発して、ネギとろイクラ丼(そのお店で一番高いの)を…

• 整合性の取れていないデータに対する処理
• プロセスの２重起動
• 障害時の復帰

さいてー

最悪…
徹夜したいけど、熱がひどそうなので、さっさと寝よう。。

に、「kill 0 => $pid 」でチェックする方法が載ってた。
errno を見た方が良いとの上司のアドバイスに従った結果、 以下のようなコードに落ち着く。

use POSIX qw(:errno_h);

sub is_process_exists($) {
    my $pid = shift;
    unless (kill 0 => $pid) {
        if ($! == ESRCH) {
            warn "errno=ESRCH: deceased or zombied";
            return 0;
        } elsif ($! == EPERM) {
            warn "errno=EPERM: escaped my control (changed uid)";
            return 1;
        }
        warn "I couldn't check on the status of $pid: $!";
        return 1;
    }
    return 1;
}