Re: Auto flock

[Tommy]

in reply to Auto flock

Using File::Util will do this for you automatically.

use File::Util;

my $ftl = File::Util->new();

# write to a file: (It is automatically locked)

$ftl->write_file(file => '/foo/bar/baz.txt', content => 'blah blah bla
+h');

# read from a file: (It is automatically locked)

my $content = $ftl->load_file("/foo/bar/baz.txt");

# to get an open filehandle that is automatically locked,
# see http://search.cpan.org/~tommy/File-Util-3.30_003/Util.pod#open_h
+andle

[space_monk]

I get the impresssion that the OP is aware of the various methods of locking, but wants a way of making the code lock files without making any changes to the (already existing) main body of code.

I couldn't quite get that far in my earlier suggestion, but thought a 1 letter regex was a close as you could get. ;-)