请教：PERL来生成文本数据最安全的方法？？

rocklv

最近用PERL写一个纯文本的留言板，但是数据常常发生丢失，PERL生成的文件如aa.dat有时会莫名其妙被系统[unix]删除，非常苦恼。

可以肯定的是，不是程序有问题。难道是系统的问题，或者PERL有什摩好的方法，所以想请教。

我已经把属性改为400，都不行！

PERL有什麽最安全的方法来生成这些文本数据呢？？

apile

1.加上lock....
  避免同時有兩個人access同一個文本..
  只是如果使用量大，就會有人跟你抱怨，他不能貼東西...
  不加lock..只要同時有兩個人以上，access文本就有可能把文本內容刪除..
  我曾經經歷過...莫名其妙文件就不見了...所以後來改用其他方式..
  猜測應該是同時有兩三個人access那的文本...其中有人出問題..造成
文本不見了...
2.利用directory與對方id+目前時間，directory名稱為日期...
  將文本名稱利用(user id + time())儲存..分開儲存...
   好處是兩個人可一同回覆文章..可保證不會因為兩個人同時access
   一個人出錯..造成文本刪除的問題...但是數量很大的時候，
   會很慢..
3.還是建議用database..:)

rocklv

啊，原来是这样，真是非常感谢apile老大

麻辣

#####我一直是这样用的文件锁，大家帮看看
$LOCK_EX = 2;
$LOCK_UN = 8;
open( TITLES, ">;>; $_data_path/forums$FORM{class}/$FORM{'forum'}/index" );
    flock( TOPIC, $LOCK_EX );
    print TITLES @test;
    print TITLES "$new_id\n";
    flock( TOPIC, $LOCK_UN ) ;
    close(TITLES);

apile

1. 
   
2. # Lock相關設定值
   
3. $RetryNum = 100; # 重試回數
   
4. $Interval = 0.1; # 重試的間隔時間
   
5. $EX_LOCK = 2;    # 排他鎖定
   
6. $UN_LOCK = 8;    # 解除鎖定
   
7. $LOCKTYPE = $EX_LOCK;   # 鎖定格式為排他鎖定
   
8. $useflock =  0;         # 使用flock()時設定值為1
   
9. $Lprefix = 'L-';        # 鎖定檔案的字首
   
10. #
    
11. # lock(lfh,lockfile);
    
12. # <IN>; lfh: 鎖定檔案的指標(相當於openLock指定的檔案名稱)
    
13. #      lockfile :鎖定的檔案名稱
    
14. # <OUT>; true:成功 false:失敗
    
15. sub lock($$)
    
16. {
    
17.   my($lfh,$lockfile) = @_;
    
18.   if($useflock){
    
19.      flock($lfh,$LOCKTYPE);
    
20.      return 1;
    
21.   }
    
22.   else{
    
23.      my ($retry) = $RetryNum;
    
24.      while(-f $lockfile) {
    
25.          select(undef,undef,undef,$Interval);
    
26.          return undef if(--$retry <=0);
    
27.      }
    
28.      return open($lfh, ">;$lockfile");
    
29.   }
    
30. }
    
31. #
    
32. # unlock(lfh,lockfile)
    
33. # <IN>; lfh :鎖定檔案的指標(相當於以openLock指定的檔案名稱)
    
34. #     lockfile:鎖定檔案名稱
    
35. # <OUT>; 無
    
36. sub unlock($$)
    
37. {
    
38.   my($lfh,$lockfile) =@_;
    
39.   if($useflock){
    
40.       flock($lfh,$UN_LOCK);
    
41.   }
    
42.   else{
    
43.      close($lfh);
    
44.      unlink($lockfile);
    
45.   }
    
46. }
    
47. 
    
48. #
    
49. # openLock(fh,modefile)
    
50. # <IN>; fh :指標
    
51. #     modefile: 包含模式的檔案名稱
    
52. #<OUT>; true of false
    
53. sub openLock(*$)
    
54. {
    
55.    my($fh,$modefile) = @_;
    
56.    my($lockf);
    
57.    ($mode,$file) =    ($modefile=~/^(\+?(?:<|>;>;?)\s*?)(.+)$/);
    
58.    if($file =~/(\/|\\)/){
    
59.       ($path,$filename) = ($file=~/^(.*[\/|\\])(.+)$/);
    
60.    }
    
61.    else{
    
62.      $path = "";
    
63.      $filename =$file;
    
64.    }
    
65.    return undef unless $filename;
    
66.    $lockf = $path.$LPrefix.$filename;
    
67.    lock($filename,$lockf) or return undef;
    
68.    open($fh,$modefile)
    
69.        or unlock($filename,$lockf), return undef;
    
70.    return 1;
    
71. }
    
72. 
    
73. #
    
74. # closeUnlock
    
75. # <IN>;  fh:指標
    
76. #      modefile:包含模式的檔案名稱
    
77. # <OUT>; 無
    
78. sub closeUnlock(*$)
    
79. {
    
80.   my($fh,$file) = @_;
    
81.   if($file =~/(\/|\\)/) {
    
82.       ($path,$filename) =      ($file=~/^(.*[\/|\\])(.+)$/);
    
83.   }
    
84.   else{
    
85.      $path ='';
    
86.      $filename = $file;
    
87.   }
    
88.   my($lockfile) = $path.'L-'."$filename";
    
89.   unlock($filename,$lockfile);
    
90.   close($fh);
    
91. }
    

复制代码

某本書上看到的..他用了兩種方法...做lock
一種是多建立一個lock file
一種是用flock

有興趣的自行研究..可能有bug..因為我照書上抄的
而書的例子常常會出問題...:)

rocklv

好棒啊，i like it

麻辣

继续问个问题，文件锁在windows NTFS文件系统环境下是否可靠呢？
如果代码写成这样：
flock( TOPIC, $LOCK_EX )or die"文件加锁失败";
print TITLES @test;
print TITLES "$new_id\n";
flock( TOPIC, $LOCK_UN ) or die"文件解锁失败";

在FAT32文件系统会报错，但在NTFS下正常，返回值是1 ，是不是说明ntfs格式下文件锁很有效呢？

apile

flock FILEHANDLE,OPERATION

    Not implemented (Mac OS, VMS, RISC OS, VOS).

    Available only on Windows NT (not on Windows 95). (Win32)
看..perlport
>; perldoc perlport

裡面有上面這一段...flock只有implement在windows NT上..
default是 NTFS...而FAT32..因為FAT Table配置不同..
所以應該無法使用才對...
以上只是我的猜測..上google上找也許可以看出端擬.

;剛剛看了一下google..
FAT32似乎也可以使用flock才對...、
你要不要試試看
use Fcntl qw(:flock);
然後直接使用 LOCK_EX、LOCK_UN、LOCK_SH
在flock後面...win32平台沒用過...:)