Perl CGI 並發寫入文件

Question

可以說我有以下幾點：

#!/usr/bin/perl
use strict;
use warnings;
use CGI ":standard";

...Snippet...

open (FH, '>', "file.txt") or die ("ERROR:$!");
print FH "something";
close(FH);

由於它是 Apache 上的 cgi，因此可以同時調用此 cgi 腳本。

• 並發調用時如何進行寫入和讀取？
  • 沒有鎖或這樣的正確嗎？

如果我想要條件邏輯會發生什么...

1. 等到 lsof 顯示文件已清除
2. 從文件中讀取
3. 與文本連接
4. 寫入文件

我正在研究使用 lsof 來設置同步文件鎖定，但不想走壞路。 （使用 SQL 可能會更好）。

Answer 1

1. 是的，您幾乎肯定應該為此使用數據庫。

2. 如果您真的不想使用數據庫有某種原因，那么至少使用已經存在的文件鎖定機制，而不是自己發明。 在perlfaq5 中有很多關於這個的問題（和答案）。

   • 如何鎖定文件？
   • 為什么我不能直接打開(FH, ">file.lock")？
   • 我仍然沒有得到鎖定。 我只想增加文件中的數字。 我怎樣才能做到這一點？
   • 我想要做的就是在文件末尾附加少量文本。 我還必須使用鎖定嗎？