- RU.PERL ----------------------------------------------------------- RU.PERL -
Msg : #3090 [502]
От : Anton V. Yuzhaninov 2:5020/400 01 апреля 04, 11:23
Кому : Timur Vafin 02 апреля 04, 00:48
Тема : Re: блокировак повторного запуска
-------------------------------------------------------------------------------
From: "Anton V. Yuzhaninov"
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=;
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)