看起來 $gXMLLOCK 只是要用來當 file lock 的憑藉,
然後這程式利用 file lock 來作程式萬一同時執行時的 mutex lock 用.
沒打算在這個檔案裡面存東西..
然後.. 在 XMLwrite 裡面 open 那個 $filename 的時候,
檔案就會清空了,
也許是 XMLout($ref) 出來的東西是空的,
所以印到檔案裡面也是空的?
想確認這點的話,
可以在這邊寫檔的前後再另開一個檔案也把 $result 寫進去,
檔名中可以其中一段是當時的時間戳記,
這樣檔案就不會一直蓋住了.
不過如果 XMLout 發生 exception 的話,
那這樣就不會執行到你加的寫檔程式,
你可以幫它包一層 eval { } 把這個 exception 吸收掉..
另外 XMLread 裡面 $XMLEVERCORRUPTED 那邊有點怪,
當它被設為 1 的時候, 一定就馬上 return 了,
所以下面那行檢查 $XMLEVERCORRUPTED 決定要不要 return
應該永遠都不會成立..
※ 引述《kuangs (kuangs)》之銘言：
: 小弟目前在修改網站後端程式 採用XML檔來存資料
: 目前發現一個問題 不定時
: (有時候一天一次 有時候兩次 有時候一個禮拜都不會發生)
: 會造成我的XML檔案被清空
: 找了很多可能性 後來懷疑 "有可能" 是Perl 在 讀/寫 XML時 造成的問題
: 但是卻找不到證據 或是 BUG點
: 想請問 各位是否有人也碰到類似問題 ???
: 或是 有甚麼方法可以釐清問題 謝謝
: 下面擷取部分程式碼(這兩段程式碼 不是我自己寫的)
: sub XMLwrite
: {
: my ($ref, $filename)=@_;
: my $availramdsk=getAvailRamDiskSize();
: if ( $availramdsk < 100 ){return;}
: if ( !open(XMLLOCK, "> $gXMLLOCK") ){return;}
: flock(XMLLOCK, 2);
: if ( !open(XMLFILE, "> $filename") ){return;}
: my $result=XMLout($ref);
: print XMLFILE $result;
: close XMLFILE;
: flock(XMLLOCK, 8);
: close XMLLOCK;
: }
: sub XMLread
: {
: my ($filename)=@_;
: my $XMLEVERCORRUPTED=0;
: if ( !(-e $filename) || (-z $filename) ){$XMLEVERCORRUPTED = 1;return;}
: if ( $XMLEVERCORRUPTED ){return;}
: if ( !open(XMLLOCK, "< $gXMLLOCK") ){return;}
: flock(XMLLOCK, 2);
: my $ref=XMLin($filename, forcearray=>1);
: flock(XMLLOCK, 8);
: close XMLLOCK;
: return $ref;
: }
: $gXMLLOCK 這個變數指向一個空的檔案
: 可是我不知道這檔案是要做甚麼的.........