Help for this page

Select Code to Download

Select or download this

use Fcntl ':flock';
...
flock $fh, LOCK_EX or exit $status;
...

Select or download this

# will block until file is unlocked
flock $fh, LOCK_EX or exit $status;

# will exit immediately if the file is locked
flock $fh, LOCK_EX | LOCK_NB or exit $status;