[comp.lang.perl] Help Locking File Over Network

toms@omews44.intel.com (Tom Shott) (06/16/90)

We have a great database handler written in Perl. Perl makes it easy for
users to write a key and an action as small Perl scripts which are then
eval'ed. The program just does some variable substitution to sugar coast
what the user types.

The problem is we are running on a sea of workstations using NFS. Our
present solution is to force the code to rsh to a single workstation for
all database updates and then use 'flock' to lock the file. Flock only
works on a single machine. This puts a heavy load on one machine.

Our system supports 'lockf' which has a network deamon and runs across the
network. This is fine but Perl does not support 'lockf'. Or at least as far
as I can tell it doesn't.

Any ideas ? My only other idea to date is to write a special network deamon
that uses sockets and implements a crude semaphore to lock the file. This
is beyond my limited Perl hacking ability.

--
-----------------------------------------------------------------------------
Tom Shott    INTeL, 5200 Elam Young Pkwy, Hillsboro, OR 97124, (503) 696-4520
	     toms@mipon2.intel.com OR toms%mipon2.intel.com@csnet.relay.com
       INTeL.. We bring you segments,EPROM,CISC,RISC,VLIW,EISA,DRAM