Проверка запущен скрипт или нет.

[Paul]

Проблема такая: на сервере каждые 10 минут запускается скрипт perl.pl во время 0, запустился первый раз, в 10 мин. запускается второй раз, и в этот раз нужно проверить жив ли ещё процесс с первого запуска или нет, если жив, то второй процесс прекращается, если нет, то продолжается

[Sla]

а ps поможет?

ps |grep process

man grep
чтоб исключить строку поиска из результата

[Paul]

Спасибо. Сейчас попробую.

[Sla]

ps ax |grep process|grep -v grep

но сначала man

[Paul]

Это всё надо реализовать на Perl'е, так что ps не подходит. Скрипт зарускаю не я а crontab на сервере

[Sla]

а какая разница кто запускает?
запускай шеловский скрипт, содержащий

ps ax |grep process|grep -v grep
process.pl

соответственно, проверив, результат первой команды
или же
в перловском скрипте, выполнив системный вызов, проверить результат, и принять решение о дальнейшей работе.
просто тогда результат даст, например 2 строки, что означает не выполнять скрипт,1 строка - выполнять

 

[RXL]

Paul, это классическая задачка синхронизации процессов. В таких случаях обычно обходятся lock-файлами. Выглядит это примерно так:
1. Процесс проверяет наличие lock-файла.
1.1. Если его нет, то создает его и записивает в него свой PID.
1.2. Если есть, считывает оттуда PID и проверяет наличие такого процесса в системе.
1.2.1. Если он есть, то процесс должен завершиться.
1.2.2. Если нет, то очищает файл и пишет в него свой PID.

Для сравнительно редко запускаемых задач это самый легкий способ. Чтобы не случилась ситуация гонки, стоит блокировать файл на время чтения-записи.

[Paul]

Всё, спасибо. Разобрался.

[Sla]

Paul, расскажи, покажи...

[Paul]

т.к. shell'е я не шарю пришлось использовать php, вот что у меня получилось, пока отлично работает.

Код:

<?
$out=shell_exec("ps ax|grep server2.pl|grep -v grep");
if(!strpos($out,"server2.pl"))
{
	shell_exec("perl server2.pl");
	echo "server is running";
}
else
	printf("server already running\n");
?>

[Sla]

Paul, ну ты даешь
связка php+shell+perl

Тебе дали подсказку - используй семафоры

в перловском скрипте
при запуске проверяй наличие PID
если PID перловского скрипта существует, то закончить скрипт ничего не делая.
если не существует - создать PID и выполнить тело перловского скрипта.