|
发表于 2003-11-21 23:12:01
|
显示全部楼层
Here is a simple perl script by lawries
#!/usr/bin/perl -w ##############################################################################
# #
# FILE NAME: ftime #
# #
#----------------------------------------------------------------------------#
# PURPOSE: Retrive full set of file date #
# #
#----------------------------------------------------------------------------#
# usage: #
# List of files piped into ftime #
# #
# example: #
# #
# ls -l | awk '{ print $9 }' | /usr/local/bin/ftime #
# #
#----------------------------------------------------------------------------#
# REVISIONS: #
# #
# Lawrie November 2003 #
##############################################################################
use strict;
# use File::stat;
while (<>) {
chomp($_);
my($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime, $mtime,
$ctime, $blksize, $blocks) = stat($_);
my $access = localtime $atime;
my $modify = localtime $mtime;
my $inodes = localtime $ctime;
printf "$_ : \n";
printf " Last Access Time : $access \n";
printf " Last Modify Time : $modify \n";
printf " Last Inode change: $inodes \n";
} |
|