perl如何檢測文件已經(jīng)傳輸完畢？

首天

如何用perl監(jiān)控samba服務(wù)器中的一個文件夾，當(dāng)文件夾內(nèi)有新的文件，并且文件已經(jīng)傳輸完畢后執(zhí)行一些操作，譬如轉(zhuǎn)移之類的。
現(xiàn)在使用是循環(huán)讀取文件夾的列表，然后檢測文件的時間是否小于當(dāng)前的時間，小于則判斷為文件傳輸完畢，實際使用中大部分都沒有問題，個別文件出現(xiàn)文件傳輸不完整的情況
想請教，perl如何判斷一個文件已經(jīng)傳輸完畢？

蘭花仙子

首天 發(fā)表于 2012-05-15 11:41
如何用perl監(jiān)控samba服務(wù)器中的一個文件夾，當(dāng)文件夾內(nèi)有新的文件，并且文件已經(jīng)傳輸完畢后執(zhí)行一些操作，譬 ...

這種情況，你還是用rsync吧，perl有客戶端模塊。
技術(shù)而言，復(fù)雜的事情簡單化最美。

首天

蘭花仙子 發(fā)表于 2012-05-15 11:56
這種情況，你還是用rsync吧，perl有客戶端模塊。
技術(shù)而言，復(fù)雜的事情簡單化最美。

謝謝仙子
rsync可以實現(xiàn)文件備份，和我們現(xiàn)在的需求有點差異。
我們的這個程序要實現(xiàn)的是samba共享文件管理，程序監(jiān)測指定文件夾，當(dāng)有新的文件時，執(zhí)行一系列的，檢測，復(fù)制，備份，刪除等操作。

jason680

回復(fù) 3# 首天

how about md5 check
   

dgww

用bash腳本吧，lsof一下就可以了。

首天

回復(fù) 4# jason680
謝謝
為了更好的兼容性，管理程序運行在samba共享服務(wù)器上，windows客戶端通過網(wǎng)絡(luò)共享的方式上傳、使用文件
md5數(shù)據(jù)如果在網(wǎng)絡(luò)共享上傳之前獲取，就需要客戶端額外的提供計算md5的步驟，由于涉及的客戶端太多--大約幾百臺--實施起來不容易
如果在服務(wù)器端能夠?qū)崿F(xiàn)是最方便

   

首天

dgww 發(fā)表于 2012-05-15 15:11
用bash腳本吧，lsof一下就可以了。

謝謝！
lsof確實可以判斷出來，剛測試了一下，lsof -a -c smbd ./file
smb在訪問的時候，會返回相應(yīng)的進程信息