PerlIO::flock - Easy flock() interface
open my $in, '< :flock', $file; # shared lock open my $out, '+<:flock', $file; # exclusive lock binmode($fh, ':flock(blocking)'); binmode($fh, ':flock(non-blocking)');
PerlIO::flock provides an interface to
It tries to lock the filehandle with
flock() according to the open mode. That is, if a file is opened for writing,
:flock attempts exclusive lock (using LOCK_EX). Otherwise, it attempts shared lock (using LOCK_SH).
It waits until the lock is granted. If an argument
LOCK_NB) is supplied, the call of
binmode()) fails when the lock cannot be granted.
This is a pseudo layer that doesn't be pushed on the layer stack.
# tries shared lock, or waits until the lock is granted open my $in, "<:flock", $file; open my $in, "<:flock(blocking)", $file; # ditto. # tries shared lock, or returns undef open my $in, "<:flock(non-blocking)", $file; open my $in, "<:flock(LOCK_NB)", $file; # ditto.
Goro Fuji (藤 吾郎) <gfuji (at) cpan.org>
Copyright (c) 2008, Goro Fuji <gfuji (at) cpan.org>. Some rights reserved.
This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.