檔案時間差異比較

68930089

有一個有關檔案時間比較的問題想請教一下，如何比對下列檔案時間，每小時比較一次
若時間有變化即列出檔案。


-rwxr-xr-x   1 hslusrp  sys      274327 Dec 27 14:36 cpsmplab
-rwxr-xr-x   1 hslusrp  sys      668375 Jan 10 13:18 cpsoccal
-rwxr-xr-x   1 hslusrp  sys      251373 Dec 20 2007  cpspolct
-rwxr-xr-x   1 hslusrp  sys      249627 Dec 20 2007  cpspreqg
-rwxr-xr-x   1 hslusrp  sys      387538 Oct 27 2011  cpstbmql
-rwxr-xr-x   1 hslusrp  sys      266816 Oct 08 2012  cpstbprd
-rwxr-xr-x   1 hslusrp  sys      285574 Feb 22 15:05 cpveqpln
-rwxr-xr-x   1 hslusrp  3sys      369558 Mar 08 2011  cpvryoop


請問一下個位高手有辦法可以每小時比較一次檔案時間是否有被修改過，
若有修改即列出修改檔案。

kiterunner_t

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

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

68930089

忘了說明了系統是AIX 的不支援LINUX ls --full-time 這種格式有點麻煩
不知道AIX是否也有這種格式呢?

kiterunner_t

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

68930089

有具體的案例可以使用的嗎?

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. 
    

复制代码

68930089

嗯…測試過了，真的可行。
my $dir = "."; <-- 這裡是指目錄的位置，那如果要
比較多個資料匣的話可行嗎?

侃侃ERIC

#!/bin/bash
stat -c "%Y:%n" /you/dir/* > stat.old
while :
do
   stat -c "%Y:%n" /you/dir/* > stat.new
   for file in $(<stat.new)
     do
        grep -q $file stat.old || echo ${file#*:} >> result
     done
   cat stat.new > stat.old && rm -fr stat.new
   sleep 3600
done

68930089

Use of uninitialized value in numeric ne (!=) at test.pl line 38.
Argument "chopproc.20080814" isn't numeric in numeric ne (!=) at test.pl line 38.
Use of uninitialized value in numeric ne (!=) at test.pl line 38.
Use of uninitialized value in numeric ne (!=) at test.pl line 38.
Use of uninitialized value in numeric ne (!=) at test.pl line 38.
Argument "chopproc.bak" isn't numeric in numeric ne (!=) at test.pl line 38.
Use of uninitialized value in numeric ne (!=) at test.pl line 38.
Use of uninitialized value in numeric ne (!=) at test.pl line 38.
Use of uninitialized value in numeric ne (!=) at test.pl line 38.
Argument "chqcdeft" isn't numeric in numeric ne (!=) at test.pl line 38.
Use of uninitialized value in numeric ne (!=) at test.pl line 38.
Use of uninitialized value in numeric ne (!=) at test.pl line 38.
Use of uninitialized value in numeric ne (!=) at test.pl line 38.
Argument "chshiphs.bak" isn't numeric in numeric ne (!=) at test.pl line 38.
Use of uninitialized value in numeric ne (!=) at test.pl line 38.
Use of uninitialized value in numeric ne (!=) at test.pl line 38.
Use of uninitialized value in numeric ne (!=) at test.pl line 38.
Argument "chshtprc" isn't numeric in numeric ne (!=) at test.pl line 38.
Use of uninitialized value in numeric ne (!=) at test.pl line 38.
Use of uninitialized value in numeric ne (!=) at test.pl line 38.
Use of uninitialized value in numeric ne (!=) at test.pl line 38.
Argument "chsrtcfg" isn't numeric in numeric ne (!=) at test.pl line 38.
Use of uninitialized value in numeric ne (!=) at test.pl line 38.
Use of uninitialized value in numeric ne (!=) at test.pl line 38.
Use of uninitialized value in numeric ne (!=) at test.pl line 38.
Argument "chvpklhs" isn't numeric in numeric ne (!=) at test.pl line 38.

出現上面訊息請問一下要怎麼解啊

68930089

+1  #! /usr/bin/perl
    +2
    +3
    +4
    +5  #use strict;
    +6
    +7  use warnings;
    +8  use Net::SMTP;
    +9
   +10
   +11  use constant SLEEP_TIME => 6;
   +12
   +13
   +14
   +15  my $dir = "/prod/his/exe";
   +16
   +17  my @files = map { (my $x = $_) =~ s/\n//; $x } `ls $dir`;
   +18
   +19  my %file_access = map { $_, (stat($_))[9] } @files;
   +20
   +21
   +22  while (1) {
   +23
   +24    sleep SLEEP_TIME;
   +25
   +26
   +27
   +28    foreach (@files) {
   +29
   +30      my $file = $_;
   +31
   +32      my $last_modify = (stat($file))[9];
   +33
   +34      if ($file_access{$file} != $last_modify) {
   +35
   +36        print "\t", $file, "\n";
   +37
   +38
   +39        $file_access{$file} = $last_modify;
   +40
   +41     }
   +42
   +43    }
   +44
   +45  }


Use of uninitialized value in numeric ne (!=) at test.pl line 34.
Argument "bkup" isn't numeric in numeric ne (!=) at test.pl line 34.
Use of uninitialized value in numeric ne (!=) at test.pl line 34.
Use of uninitialized value in numeric ne (!=) at test.pl line 34.
Use of uninitialized value in numeric ne (!=) at test.pl line 34.
Argument "chaltprc" isn't numeric in numeric ne (!=) at test.pl line 34.
Use of uninitialized value in numeric ne (!=) at test.pl line 34.
Use of uninitialized value in numeric ne (!=) at test.pl line 34.
Use of uninitialized value in numeric ne (!=) at test.pl line 34.