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;
}
closedir GOP;
This piece of code WORKS when I point opendir GOP to the current directory. But it DOESN"T work
when I point to the subdirectory SCRATCH/BACKUP within the current directory.
It's tricky. And " print $_ " successfully prints out the files in
SCRATCH/BACKUP dir.
What is the problem?
thank you all.
bing
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
