On Wed, 30 Jul 2003 02:14:45 +0500, [EMAIL PROTECTED] (Sara) wrote: >What could be the simplest test to check 'flock' working on your server or not? > >except for writing to support team of host ::)) > >Thanks for any input. Start the following script in 2 different terminals or xterms simultaneously. The first one should hold the lock for 10 seconds, then the second instance should take over. (If flock works).
#!/usr/bin/perl use Fcntl ':flock'; # import LOCK_* constants $|=1; #run this twice and the second run will not run until first finishes sub get_lock{ open(SEM, ">$semaphore_file") || die "Cannot create semaphore: $!"; flock(SEM, LOCK_EX) || die "Lock failed: $!"; } sub release_lock{ close(SEM);} $semaphore_file="flock-sub-semfile"; get_lock(); for(1..10){ print "got lock"; sleep 1; } #Do something here release_lock; __END__ -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]