|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Anton V. Yuzhaninov 2:5020/400 01 Apr 2004 11:23:32 To : Timur Vafin Subject : Re: блокировак повторного запуска -------------------------------------------------------------------------------- Hello, Timur! You wrote to Serge Chervjakov on Thu, 1 Apr 2004 05:20:42 +0000 (UTC): TV> С спросить kill(0, $pid) нельзя? TV> Всё будет хорошо.... Спасибо, так и сделал: my $me = basename($0); $pidfile = "/var/run/$me.pid"; if (open(PID,"$pidfile")) { my $last_pid=<PID>; close PID; if (defined $last_pid && kill 0,$last_pid) { warn "Error: $me already running\n"; exit 255; } } open (PID,">$pidfile"); print PID $$; close (PID); -- Anton V. Yuzhaninov. E-mail: citrin@mail.ru --- ifmail v.2.15dev5.3 * Origin: Demos online service (2:5020/400) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/6577f5bb7a38.html, оценка из 5, голосов 10
|