|
perldoc -f flock
Here's a mailbox appender for BSD systems.
use Fcntl ':flock'; # import LOCK_* constants
sub lock {
flock(MBOX,LOCK_EX);
# and, in case someone appended
# while we were waiting...
seek(MBOX, 0, 2);
}
Just to clarify what the seek is really for and why you usually get away without needing it. The whole exercise however was to avoid race conditions.
|