On Nov 13, ZHAO, BING said:
opendir GOP, "SCRATCH/BACKUP" or die "cannot open directory
SCRATCH/BACKUP:$!";
my @smm=grep{($_ ne ".") && ($_ ne "..")} readdir GOP;
foreach (@smm){
my($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime,
$mtime, $ctime, $blksize, $blocks) = stat
On Sun, 13 Nov 2005 17:36:39 -0800
"ZHAO, BING" <[EMAIL PROTECTED]> wrote:
opendir GOP, "SCRATCH/BACKUP" or die "cannot open directory SCRATCH/BACKUP:$!";
my @smm=grep{($_ ne ".") && ($_ ne "..")} readdir GOP;
foreach (@smm){
my($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime,
opendir GOP, "SCRATCH/BACKUP" or die "cannot open directory SCRATCH/BACKUP:$!";
my @smm=grep{($_ ne ".") && ($_ ne "..")} readdir GOP;
foreach (@smm){
my($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime,
$mtime, $ctime, $blksize, $blocks) = stat($_);
print $ctime;
}
cl