[perl] Неблокирующая запись в файл - возможно?

man flock
man 2 flock
$ touch s1
$ flock s1 -c «echo Hello >>s1»

не очень понял, как это может мне помочь. или что-то вроде

1.открыть файл

2.разлочить файл

3.залочить->записать->разлочить

?

ибо если разлочить его в обоих скриптах, то можно поиметь проблемы при одновременной попытке записи. я правильно понял?

Однако перл (или линукс, что более вероятно) не позволяет получить дескриптор на запись в один файл для двух процессов.

ещё как позволяет. Простейший вариант-форкнуться, тогда у обоих процессов будет один и тот же дескриптор. Так же есть штатный механизм передачи дескрипторов между процессами, я такое нагугливал. Нужны ли блокировки при этом варианте я не знаю, ман write говорит «The adjustment of the file offset and the write operation are performed as an atomic step.»

Вот немного подробнее как писать из двух процессов в один файл и O_APPEND: http://www.cim.mcgill.ca/~franco/OpSys-304-427/lecture-notes/node27.html

Однако перл (или линукс, что более вероятно) не позволяет получить дескриптор на запись в один файл для двух процессов.

???

[user@localhost temp]$ cat write2file.pl
#!/usr/bin/perl

open $file, ">>file";
print $file "$$\n";
sleep 10;
close $file;
[user@localhost temp]$ ./write2file.pl & ./write2file.pl
[1] 4949
[1]+  Done                    ./write2file.pl
[user@localhost temp]$ cat file 
4949
4950
[user@localhost temp]$ 

Хотя, конечно же, правильнее использовать блокировки.

Или я вопрос не понял?

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

perldoc -f flock

там же есть пример.

я делаю точно также, но второй инстанс виснет на open. даже open or die не прокатывает. даже после того, как первый умер и закрыл свой дескриптор

А тот скрипт, который я показал, виснет? Если да, то виснет ли с sysopen вместо open?

Ну и uname -a и perl -V.

скрипты на работе, проверю только 11го. сейчас дома попробую ваш воспроизвести

дома работает.. и там и тут перл вроде бы одной версии -5.10

Вообще, нужно смотреть не сколько версию, сколько параметры компиляции перла, но скорее всего это у вас в программе ошибка.

ладно, я сегодня добрый :)

#!/usr/bin/perl

use strict;
use warnings 'all';
use Fcntl qw/:flock SEEK_END/;

open my $log, '>>', 'test.log' or die $!;

for (1..10) {
        flock $log, LOCK_EX or die $!;
        seek $log, 0, SEEK_END or die $!;
        printf $log "%s  [%d]  %d\n", scalar localtime, $$, $_;
        flock $log, LOCK_UN or die $!;
        sleep 1;
}


close $log;

ззы:

./test.pl &
./test.pl &
./test.pl &
tail -f test.log

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

Нормально. Но можно и просто использовать syslog.