perl 找出一天內的新檔案

使用 File::Find

use File::Find;

# 從 1970-01-01 到現在所經過的秒數值
$date_time_second_since = time();

# 找 /var/log
find(\&find_file_wanted,'/var/log');

sub find_file_wanted {
        # ↓↓↓ 可以顯示絕對路徑
        $found_file = $File::Find::name;
        # 檔案的屬性
        ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks) = stat($found_file);

        # 數出時間差值小於 一天的
        if (($date_time_second_since - $mtime) < 86400) {
                print "$found_file ";
        }
}

stat() 說明

  0 dev        device number of filesystem
  1 ino         inode number
  2 mode     file mode  (type and permissions)
  3 nlink       number of (hard) links to the file
  4 uid         numeric user ID of file's owner
  5 gid         numeric group ID of file's owner
  6 rdev       the device identifier (special files only)
  7 size        total size of file, in bytes
  8 atime     last access time in seconds since the epoch
  9 mtime     last modify time in seconds since the epoch
10 ctime      inode change time in seconds since the epoch (*)
11 blksize    preferred block size for file system I/O
12 blocks     actual number of blocks allocated

如果只是要取 mtime，也可以這樣作

($mtime) = (stat ($found_file)) [9];

find 的其它用法 http://www.unix.com.ua/orelly/perl/prog3/ch32_21.htm

find sub { print "$File::Find::name " if -d }, ".";