Re: [問題] 讀取XML 導致檔案被清空???

看板Perl作者CindyLinz (Cindy Wang)時間12年前 (2013/03/30 02:00)推噓0(0推 0噓 0→)

留言0則, 0人參與討論串2/2 (看更多)

看起來 $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 這個變數指向一個空的檔案 : 可是我不知道這檔案是要做甚麼的......... -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 112.121.80.249