檔案時間差異比較

kiterunner_t

1. 可以设置cron每一个小时轮询上一次记录的时间戳，看是否有变化。

2. 在linux较新的版本上可以通过inotify主动监控文件变化情况。

kiterunner_t

如果没办法的话，自己写个小程序用stat获取这些文件的时间信息，，，

kiterunner_t

一个简单的模拟的perl例子。。。

1. #! /usr/bin/perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. use constant SLEEP_TIME => 10;
   
7. 
   
8. my $dir = ".";
   
9. my @files = map { (my $x = $_) =~ s/\n//; $x } `ls $dir`;
   
10. my %file_access = map { $_, (stat($_))[9] } @files;
    
11. 
    
12. while (1) {
    
13.   sleep SLEEP_TIME;
    
14. 
    
15.   foreach (@files) {
    
16.     my $file = $_;
    
17.     my $last_modify = (stat($file))[9];
    
18.     if ($file_access{$file} != $last_modify) {
    
19.       print "\t", $file, "\n";
    
20.       $file_access{$file} = $last_modify;
    
21.     }
    
22.   }
    
23. }
    
24. 
    

复制代码

kiterunner_t

加个dumper试试，是不是你的系统里面(stat($file))[9]不是最后修改的时间。。。
perldoc -f stat看看相关东西。。。

1. #! /usr/bin/perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. use Data::Dumper;
   
6. 
   
7. use constant SLEEP_TIME => 10;
   
8. 
   
9. my $dir = ".";
   
10. my @files = map { (my $x = $_) =~ s/\n//; $x } `ls $dir`;
    
11. my %file_access = map { $_, (stat($_))[9] } @files;
    
12. 
    
13. print Dumper(\@files);
    
14. print Dumper(\%file_access);
    
15. exit;
    
16. while (1) {
    
17.   sleep SLEEP_TIME;
    
18. 
    
19.   foreach (@files) {
    
20.     my $file = $_;
    
21.     my $last_modify = (stat($file))[9];
    
22. 
    
23.     if ($file_access{$file} != $last_modify) {
    
24.       print "\t", $file, "\n";
    
25.       $file_access{$file} = $last_modify;
    
26.     }
    
27.   }
    
28. }
    
29. 
    

复制代码

kiterunner_t

这个只是一个示例，代码里面么有考虑删除等情况，一旦删除后文件stat获取的时间值不可知。。。此时hash比较就会有问题，你可以用你熟悉的语言写一个类似版本，这个只是一个例子。。。

kiterunner_t

你的系统是不是不支持stat啊？你可以用C或者其他语言自己实现一下，不是很复杂的功能的，，，