利用perl监控文件状态
while(1 and sleep 3) { #每一秒检测一次 my @changes=$monitor->scan;#open FH,'>>F:\monitor_log\monitor.log' or die "$!";#将变动的文件写入日志
open FH,'>>/var/log/monitor.log' or die "$!"; #linux与win的路径
for my $change (@changes) {
my $name = $change->name;
my @created = $change->files_created;
my @deleted =$change->files_deleted;
if (@deleted){
}
if(@created){
print FH "@created The created\n"; #如果有新文件则重新索引文件
goto START;
}
if($change->is_mtime){#判断是否为修改文件
页:
[1]