flock() Example

#!/usr/local/bin/perl

open(FH,">>test.txt") or die "Can't open file\n";

print "File opened for appending";

flock(FH,2) or die "Can't lock file\n";

print FH "Updating the file…\n" or die "Can't write to file\n";

close(FH);

Previous slide

Back to first slide

View graphic version