檔案時(shí)間差異比較

68930089

有一個(gè)有關(guān)檔案時(shí)間比較的問題想請(qǐng)教一下，如何比對(duì)下列檔案時(shí)間，每小時(shí)比較一次
若時(shí)間有變化即列出檔案。


-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


請(qǐng)問一下個(gè)位高手有辦法可以每小時(shí)比較一次檔案時(shí)間是否有被修改過，
若有修改即列出修改檔案。

kiterunner_t

1. 可以設(shè)置cron每一個(gè)小時(shí)輪詢上一次記錄的時(shí)間戳，看是否有變化。

2. 在linux較新的版本上可以通過inotify主動(dòng)監(jiān)控文件變化情況。

68930089

忘了說明了系統(tǒng)是AIX 的不支援LINUX ls --full-time 這種格式有點(diǎn)麻煩
不知道AIX是否也有這種格式呢?

kiterunner_t

如果沒辦法的話，自己寫個(gè)小程序用stat獲取這些文件的時(shí)間信息，，，

68930089

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

kiterunner_t

一個(gè)簡(jiǎn)單的模擬的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. 
    

復(fù)制代碼

68930089

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

侃侃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.

出現(xiàn)上面訊息請(qǐng)問一下要怎麼解啊

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.