perl如何检测文件已经传输完毕？

首天

如何用perl监控samba服务器中的一个文件夹，当文件夹内有新的文件，并且文件已经传输完毕后执行一些操作，譬如转移之类的。
现在使用是循环读取文件夹的列表，然后检测文件的时间是否小于当前的时间，小于则判断为文件传输完毕，实际使用中大部分都没有问题，个别文件出现文件传输不完整的情况
想请教，perl如何判断一个文件已经传输完毕？

兰花仙子

首天 发表于 2012-05-15 11:41
如何用perl监控samba服务器中的一个文件夹，当文件夹内有新的文件，并且文件已经传输完毕后执行一些操作，譬 ...

这种情况，你还是用rsync吧，perl有客户端模块。
技术而言，复杂的事情简单化最美。

首天

兰花仙子 发表于 2012-05-15 11:56
这种情况，你还是用rsync吧，perl有客户端模块。
技术而言，复杂的事情简单化最美。

谢谢仙子
rsync可以实现文件备份，和我们现在的需求有点差异。
我们的这个程序要实现的是samba共享文件管理，程序监测指定文件夹，当有新的文件时，执行一系列的，检测，复制，备份，删除等操作。

jason680

回复 3# 首天

how about md5 check
   

dgww

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

首天

回复 4# jason680
谢谢
为了更好的兼容性，管理程序运行在samba共享服务器上，windows客户端通过网络共享的方式上传、使用文件
md5数据如果在网络共享上传之前获取，就需要客户端额外的提供计算md5的步骤，由于涉及的客户端太多--大约几百台--实施起来不容易
如果在服务器端能够实现是最方便

   

首天

dgww 发表于 2012-05-15 15:11
用bash脚本吧，lsof一下就可以了。

谢谢！
lsof确实可以判断出来，刚测试了一下，lsof -a -c smbd ./file
smb在访问的时候，会返回相应的进程信息