CGI操作同一個文本數(shù)據(jù)鎖定的問題

iamlimeng

我有一個小CGI程序，它管理一個文本數(shù)據(jù)文件，但可能同時有N多人使用，那在操作文本的時候，鎖定就很有必要。

以前我用自己的鎖定和解鎖函數(shù)來控制，代碼如下：

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. }

復(fù)制代碼

用了幾年，出現(xiàn)過幾次數(shù)據(jù)丟失的情況，不太多。但最近幾個月，每隔幾天，數(shù)據(jù)就會丟失，丟失頻率越來越高。后來又改為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);

復(fù)制代碼

問題依舊，數(shù)據(jù)仍然不斷丟失。

請有經(jīng)驗的前輩們支個招吧，我實在找不到好辦法了，先謝謝了！

iamlimeng

問題已經(jīng)解決，是我自己的數(shù)據(jù)問題，鎖定和解鎖函數(shù)本身沒問題，能解決問題。

flock沒太弄明白，達(dá)不到我要的效果。

謝謝關(guān)注！

tanjiyong138

使用> 符號，會把文件截斷，這樣數(shù)據(jù)就清空了；如果使用（犧牲品）信號文件，就不會丟失了。