The OpenNET Project / Index page

[ новости /+++ | форум | теги | ]

форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка  RSS
"Раздел полезных советов: Как создать лок файл на Perl"
Вариант для распечатки Архивированная нить - только для чтения! 
Пред. тема | След. тема 
Форумы Разговоры, обсуждение новостей (Public)
Изначальное сообщение [Проследить за развитием треда]

"Раздел полезных советов: Как создать лок файл на Perl"
Сообщение от auto_tips (??) on 20-Янв-05, 17:08 
Для защиты от одновременного запуска нескольких процессов, можно сделать так:

my $cfg_glob_lock="/var/run/test.pid";

# Проверяем лок.
if (-f $cfg_glob_lock){
      # Лок присутствует. Проверяем не дохлый ли процесс.
      my $lock_pid = 0;
      open(LOCK,"<$cfg_glob_lock");
      # Если удалось заблокировать, значит процесс мертв.
      my $zombie_lock_flag = flock(LOCK, 2|4);
      $lock_pid = <LOCK>;
      close (LOCK);
      chomp ($lock_pid);
      if ($lock_pid > 0 && $zombie_lock_flag == 0){
          # Реакция на зависший процесс.                                        
          die "Proccess locked (pid=$lock_pid)";
      } else {
          # Лок от мертвого процесса.
          unlink("$cfg_glob_lock");
          warn("DeadLock detected ($lock_pid)");
      }
}    
# Записываем pid в новый лок файл.
open(LOCK,">$cfg_glob_lock");
print LOCK "$$\n";
close(LOCK);
# Открываем лок.
open(GLOB_LOCK,"<$cfg_glob_lock");
flock(GLOB_LOCK, 2);

.... рабочий код скрипта

# Закрываем и удаляем лок
flock(GLOB_LOCK, 8);
close(GLOB_LOCK);
unlink("$cfg_glob_lock");


URL:
Обсуждается: https://www.opennet.ru/tips/info/778.shtml

Cообщить модератору | Наверх | ^

 Оглавление

Сообщения по теме [Сортировка по времени, UBB]


1. "Как создать лок файл на Perl"
Сообщение от Сергей email(??) on 20-Янв-05, 17:08 
А если чужой файл появился в промежутке между
if (-f $cfg_glob_lock){
и
open(LOCK,">$cfg_glob_lock"); ?

man 2 open
/EX

Все другие варианты, к сожалению, нерабочие ;(

Cообщить модератору | Наверх | ^

2. "Как создать лок файл на Perl"
Сообщение от Maxim Chirkov email(ok) on 20-Янв-05, 23:22 
>А если чужой файл появился в промежутке между
>if (-f $cfg_glob_lock){
>open(LOCK,">$cfg_glob_lock"); ?

Полностью согласен, поправил в контексте использования sysopen(LOCK,$cfg_glob_lock, O_CREAT|O_EXCL|O_WRONLY), можно также вариант блокировки хардлинками привести.

Для борьбы с использованием Race Condition в плане безопасности еще хорошо помогает монтирование world writable разделов с nosymfollow и создание локов/временных файлов в недоступных для посторонних местах.


Cообщить модератору | Наверх | ^

3. "Как создать лок файл на Perl"
Сообщение от Сергей email(??) on 21-Янв-05, 09:06 
Ещё (я не зануда ;-):

лучше всё-таки использовать символьные константы O_CREAT и прочие, они от юникса к юниксу отличаются, а мы же боремся за переносимость ;)

И по поводу хардлинков не всё так просто: на монтированных файловых системах, типа той же самбы, их не будет, что приведёт к очевидным проблемам.
Впрочем, вариант с open тоже имеет трудности на некоторых реализациях NFS, но этим, пожалуй, уж точно можно пренебречь.

Cообщить модератору | Наверх | ^

4. "Как создать лок файл на Perl"
Сообщение от Maxim Chirkov email(ok) on 21-Янв-05, 10:01 
>лучше всё-таки использовать символьные константы O_CREAT и прочие, они от юникса к
>юниксу отличаются, а мы же боремся за переносимость ;)

Поправил.

>И по поводу хардлинков не всё так просто: на монтированных файловых системах,
>типа той же самбы, их не будет, что приведёт к очевидным
>проблемам.
>Впрочем, вариант с open тоже имеет трудности на некоторых реализациях NFS, но
>этим, пожалуй, уж точно можно пренебречь.

А для samba разделов  open лок точно без проблем работает  ? Просто на них тот же File::Find без рукоприкладства ($File::Find::dont_use_nlink=1) неработоспособен.

Впринципе, для локов хардлинками на CPAM есть готовый модуль File::NFSLock.

Cообщить модератору | Наверх | ^

5. "Как создать лок файл на Perl"
Сообщение от Сергей email(??) on 21-Янв-05, 15:12 
Да, open точно работает, по крайней мере на C я проверял. Perl тоже должен, обвязка же в итоге сводится к вызову open(2) AFAIK.
Не работает для платформ DOS-OS2-Win, там только через rename, потому что очень сильно зависит от реализации библиотеки, да и в случае хорошей библиотеки нельзя закладываться на это ;-(
Мака под рукой нету, VMS тоже, на них не проверял ;-)
Cообщить модератору | Наверх | ^

6. "Как создать лок файл на Perl"
Сообщение от Критик on 24-Фев-05, 13:50 
Пародон, а чем use Proc::Lock::File; уже устарел???
Cообщить модератору | Наверх | ^

Удалить

Индекс форумов | Темы | Пред. тема | След. тема




Партнёры:
PostgresPro
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2024 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру