https://m.opennet.me/openforum/vsluhforumID3/4985.html Для защиты от одновременного запуска нескольких процессов, можно сделать так:<br><br>my $cfg_glob_lock="/var/run/test.pid";<br><br># Проверяем лок.<br>if (-f $cfg_glob_lock){<br> # Лок присутствует. Проверяем не дохлый ли процесс.<br> my $lock_pid = 0;<br> open(LOCK,"&lt;$cfg_glob_lock");<br> # Если удалось заблокировать, значит процесс мертв.<br> my $zombie_lock_flag = flock(LOCK, 2&#124;4);<br> $lock_pid = &lt;LOCK&gt;;<br> close (LOCK);<br> chomp ($lock_pid);<br> if ($lock_pid &gt; 0 && $zombie_lock_flag == 0){<br> # Реакция на зависший процесс. <br> die "Proccess locked (pid=$lock_pid)";<br> } else {<br> # Лок от мертвого процесса.<br> unlink("$cfg_glob_lock");<br> warn("DeadLock detected ($lock_pid)");<br> }<br>} <br># Записываем pid в новый лок файл.<br>open(LOCK,"&gt;$cfg_glob_lock");<br>print LOCK "$$\n";<br>close(LOCK);<br># Открываем лок.<br>open(GLOB_LOCK,"&lt;$cfg_glob_lock");<br>flock(GLOB_LOCK, 2);<br><br>.... рабочий код скрипта<br><br># https://m.opennet.me/openforum/vsluhforumID3/4985.html#6 Thu, 24 Feb 2005 10:50:39 GMT Пародон, а чем use Proc::Lock::File; уже устарел??? https://m.opennet.me/openforum/vsluhforumID3/4985.html#5 Fri, 21 Jan 2005 12:12:58 GMT Да, open точно работает, по крайней мере на C я проверял. Perl тоже должен, обвязка же в итоге сводится к вызову open(2) AFAIK.<br>Не работает для платформ DOS-OS2-Win, там только через rename, потому что очень сильно зависит от реализации библиотеки, да и в случае хорошей библиотеки нельзя закладываться на это ;-(<br>Мака под рукой нету, VMS тоже, на них не проверял ;-) https://m.opennet.me/openforum/vsluhforumID3/4985.html#4 Fri, 21 Jan 2005 07:01:45 GMT &gt;лучше всё-таки использовать символьные константы O_CREAT и прочие, они от юникса к <br>&gt;юниксу отличаются, а мы же боремся за переносимость ;) <br><br>Поправил.<br><br>&gt;И по поводу хардлинков не всё так просто: на монтированных файловых системах, <br>&gt;типа той же самбы, их не будет, что приведёт к очевидным <br>&gt;проблемам. <br>&gt;Впрочем, вариант с open тоже имеет трудности на некоторых реализациях NFS, но <br>&gt;этим, пожалуй, уж точно можно пренебречь. <br><br>А для samba разделов open лок точно без проблем работает ? Просто на них тот же File::Find без рукоприкладства ($File::Find::dont_use_nlink=1) неработоспособен.<br><br>Впринципе, для локов хардлинками на CPAM есть готовый модуль File::NFSLock.<br><br> https://m.opennet.me/openforum/vsluhforumID3/4985.html#3 Fri, 21 Jan 2005 06:06:10 GMT Ещё (я не зануда ;-):<br><br>лучше всё-таки использовать символьные константы O_CREAT и прочие, они от юникса к юниксу отличаются, а мы же боремся за переносимость ;)<br><br>И по поводу хардлинков не всё так просто: на монтированных файловых системах, типа той же самбы, их не будет, что приведёт к очевидным проблемам.<br>Впрочем, вариант с open тоже имеет трудности на некоторых реализациях NFS, но этим, пожалуй, уж точно можно пренебречь. https://m.opennet.me/openforum/vsluhforumID3/4985.html#2 Thu, 20 Jan 2005 20:22:43 GMT &gt;А если чужой файл появился в промежутке между <br>&gt;if (-f $cfg_glob_lock){ <br>&gt;open(LOCK,"&gt;$cfg_glob_lock"); ?<br><br>Полностью согласен, поправил в контексте использования sysopen(LOCK,$cfg_glob_lock, O_CREAT&#124;O_EXCL&#124;O_WRONLY), можно также вариант блокировки хардлинками привести.<br><br>Для борьбы с использованием Race Condition в плане безопасности еще хорошо помогает монтирование world writable разделов с nosymfollow и создание локов/временных файлов в недоступных для посторонних местах.<br><br><br><br><br> https://m.opennet.me/openforum/vsluhforumID3/4985.html#1 Thu, 20 Jan 2005 14:08:38 GMT А если чужой файл появился в промежутке между <br>if (-f $cfg_glob_lock){<br>и<br>open(LOCK,"&gt;$cfg_glob_lock"); ?<br><br>man 2 open<br>/EX<br><br>Все другие варианты, к сожалению, нерабочие ;(