檔案時間差異比較

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比较就会有问题，你可以用你熟悉的语言写一个类似版本，这个只是一个例子。。。

68930089

$VAR1 = [
          'ain',
          'chabeprc',
          'chaltprc',
          'chbcdrpt',
          'chbdlsht',
          'chcaryox',
          'chccrrhs',
          'chceqmhs',
          'chceqpnt',
          'chcrinsp',
          'chdefprc',
          'chdeldel',
          'chdeldel.sh',
          'chdeleqp',
          'chdelope',
          'cheaactc',
          'chedcprc',
          'cheenprc',
          'chemdprc',
          'cheqlmhs',
          'cheqputl',
          'chestprc',
          'chis-del-del.sh',
          'chis-del-edc.sh',
          'chis-del-eqp.sh',
          'chis-del-lot.sh',
          'chis-del-ope.sh',
          'chis-del-sht.sh',
          'chloiprc',
          'chmtlprc',
          'chmtrlmt',
          'chmtrlst',
          'choplcat.c',
          'chopmain.c',
          'chopprc.bak',
          'chopproc',
          'chopproc.bak',
          'chopproc.tar',
          'chqcdeft',
          'chshiphs',
          'chshiphs.bak',
          'chshtcon',
          'chshtprc',
          'chsmnthis',
          'chsrtcfg',
          'chvideft',
          'chvpklhs',
          'chwokrem',
          'cpcmsrdb',
          'del_hcwip_count.log',
          'dhshtprc',
          'dist',
          'lcdhisexe.tar',
          'nohup.out',
          'qdatakill',
          'snap.ksh',
          'test2',
          'zzzz.tmp'
        ];
$VAR1 = {
          'dhshtprc' => 'dist',
          'chdefprc' => 'chdeldel',
          'chdelope' => 'cheaactc',
          'lcdhisexe.tar' => 'nohup.out',
          'test2' => 'zzzz.tmp',
          'chvpklhs' => 'chwokrem',
          'chemdprc' => 'cheqlmhs',
          'chshiphs.bak' => 'chshtcon',
          'chis-del-del.sh' => 'chis-del-edc.sh',
          'choplcat.c' => 'chopmain.c',
          'chaltprc' => 'chbcdrpt',
          'chdeldel.sh' => 'chdeleqp',
          'chopprc.bak' => 'chopproc',
          'chmtrlmt' => 'chmtrlst',
          'chis-del-eqp.sh' => 'chis-del-lot.sh',
          'chbdlsht' => 'chcaryox',
          'chccrrhs' => 'chceqmhs',
          'cpcmsrdb' => 'del_hcwip_count.log',
          'chopproc.bak' => 'chopproc.tar',
          'cheqputl' => 'chestprc',
          'ain' => 'chabeprc',
          'chedcprc' => 'cheenprc',
          'chloiprc' => 'chmtlprc',
          'chceqpnt' => 'chcrinsp',
          'qdatakill' => 'snap.ksh',
          'chshtprc' => 'chsmnthis',
          'chsrtcfg' => 'chvideft',
          'chqcdeft' => 'chshiphs',
          'chis-del-ope.sh' => 'chis-del-sht.sh'
        };


執行之後出現上面資料，求救啊老闆要求要監控檔案系統變化。
本是對這個不熟所以才來這裡求助的。

kiterunner_t

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