如何锁定Perl网络中的共享文件？

Question

我在两台Linux机器上安装了一个cifs文件。我有一个可以修改共享文件的Perl脚本。在这种情况下，我们如何在网络上锁定文件？

Answer 1

我无法在CPAN上找到实现此目的的模块。看起来包装libsmbclient的模块没有实现协议的OPLOCKing部分。

在smbfs来源中，功能smbfs_smb_lock似乎可以满足您的需求。 要么写你自己的XS包装模块，要么使用Inline :: C。

Answer 2

看起来我们可以用fcntl（）来锁定文件。我刚刚找到了它的工作:) 如果你想做到这一点通过NFS，尝试File::NFSLock此链接可能是有用的

http://www.cpan.org/scripts/file-handling/flock.using.fcntl.example

感谢您的答复

_Anandan

Answer 3

。

Answer 4

如果你的文件服务器是桑巴，那么也要看smb.conf手册页：

... 

阻塞锁（S）

 This parameter controls the behavior of smbd(8) when given a request by a client 
     to obtain a byte range lock on a region of an open file, and the request has a 
     time limit associated with it. 

     If this parameter is set and the lock range requested cannot be immediately 
     satisfied, samba will internally queue the lock request, and periodically attempt 
     to obtain the lock until the timeout period expires. 

     If this parameter is set to no, then samba will behave as previous versions of 
     Samba would and will fail the lock request immediately if the lock range cannot 
     be obtained. 

     Default: blocking locks = yes 

... 

锁定（S）

 This controls whether or not locking will be performed by the server in response 
     to lock requests from the client. 

     If locking = no, all lock and unlock requests will appear to succeed and all lock 
     queries will report that the file in question is available for locking. 

     If locking = yes, real locking will be performed by the server. 

     This option may be useful for read-only filesystems which may not need locking 
     (such as CDROM drives), although setting this parameter of no is not really 
     recommended even in this case. 

     Be careful about disabling locking either globally or in a specific service, as 
     lack of locking may result in data corruption. You should never need to set this 
     parameter.