da17Есть скрипт(perl) который запускается по крону. При запуске необходимо проверить работает ли он или нет. Как бы это сделать по элегантней. На данный момент он при запуске создает файл-метку в tmp и по окончании работы его удаляет, но это мне не очень нравится вдруг кто-нибудь в середине работы скрипта прервет его работу (нло, уборщица, чубайс) тогда файл-метка будет не удалена и следующий раз он не запустится. Думаю можно мониторить его читая таблицу процессов и если в данный момент их больше двух то выходить. Может быть есть стандартный прием для подобных задач?


use Sys::Syslog;

openlog($program, 'cons,pid', 'user');

syslog('info', 'this is another test');

..
здесь сам шкрипт
..

syslog('mail|warning', 'this is a better test: %d', time);
closelog();
~