У меня есть несколько дочерних процессов, которые должны записывать журналы в общий файл. Мне интересно, работает ли этот код, чтобы процессы записывались в общий файл без коллизий:
sub appendLogs {
open FILE, "+>>", $DMP or die "$!";
flock FILE, LOCK_EX or die "$!";
print FILE "xyz\n";
close FILE;
}
Если нет, не могли бы вы дать мне какие-либо подсказки, как я могу это исправить или улучшить?
Да, пока каждый процесс, пытающийся записать в файл, использует flock, коллизий не будет.
flock? Ваше решение недостаточно хорошо для критических приложений.
- person Ωmega; 21.10.2019
Для ведения журнала я бы использовал Log4perl вместо того, чтобы изобретать велосипед. У него есть поддержка того, что вы ищете.
Если вы хотите, чтобы ваш код был переносимым, вам следует перейти к концу файла после того, как вы заблокируете дескриптор файла, но до записи в него. См. пример «дополнения почтового ящика» в perldoc -f flock, который похож на то, что вы делаете.
sub appendLogs {
open FILE, "+>>", $DMP or die "$!";
flock FILE, LOCK_EX or die "$!";
seek FILE, 0, 2; # <--- after lock, move cursor to end of file
print FILE "xyz\n";
close FILE;
}
seek может быть необходимо, потому что другой процесс может добавить файл (и переместить позицию конца файла) после того, как вы откроете дескриптор файла, но до того, как вы получите блокировку.
flock звонка не вариант?
- person Ωmega; 21.10.2019
