These pages are written by only Japanese.
|
Namazu for hns による簡易全文検索です。 詳細は 詳細指定/ヘルプをご参照下さい。 |
||||||||||||||||||||||||||||||||||||||||||||||
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; }