CGI操作同一个文本数据锁定的问题

iamlimeng

我有一个小CGI程序，它管理一个文本数据文件，但可能同时有N多人使用，那在操作文本的时候，锁定就很有必要。

以前我用自己的锁定和解锁函数来控制，代码如下：

1. lock_file($data_file);
   
2. open(FH,"<$data_file");
   
3. my @data = <FH>
   
4. close(FH);
   
5. unlock_file($data_file);
   
6. 
   
7. lock_file($data_file);
   
8. open(FH,">$data_file");
   
9. forecah (@data) { print FH "$_\n"; }
   
10. close(FH);
    
11. unlock_file($data_file);
    
12. 
    
13. sub lock_file {
    
14.     my ($lockfile) = shift;
    
15.     my ($file,$dump) = split(/\./,$lockfile);
    
16.     select(undef,undef,undef,0.2) while (-e "$file.lck");
    
17.     open (LOCKFILE, ">$file.lck");
    
18.     close (LOCKFILE);
    
19. }
    
20. 
    
21. sub unlock_file {
    
22.     my ($lockfile) = shift;
    
23.     my ($file,$dump) = split(/\./,$lockfile);
    
24.     unlink("$file.lck") while (-e "$file.lck");
    
25. }

复制代码

用了几年，出现过几次数据丢失的情况，不太多。但最近几个月，每隔几天，数据就会丢失，丢失频率越来越高。后来又改为flock锁定，代码如下：

1. open(FH,"<$data_file");
   
2. flock(FH,LOCK_SH);
   
3. my @data = <FH>;
   
4. flock(FH,LOCK_UN);
   
5. close(FH);
   
6. 
   
7. open(FH,">$data_file");
   
8. flock(FH,LOCK_EX);
   
9. forecah (@data) { print FH "$_\n"; }
   
10. flock(FH,LOCK_UN);
    
11. close(FH);

复制代码

问题依旧，数据仍然不断丢失。

请有经验的前辈们支个招吧，我实在找不到好办法了，先谢谢了！

iamlimeng

问题已经解决，是我自己的数据问题，锁定和解锁函数本身没问题，能解决问题。

flock没太弄明白，达不到我要的效果。

谢谢关注！

tanjiyong138

使用> 符号，会把文件截断，这样数据就清空了；如果使用（牺牲品）信号文件，就不会丢失了。