The stat Function for Windows NT File Attributes : stat « File « Perl






  1. Perl
  2. File
  3. stat

The stat Function for Windows NT File Attributes

    


open(FH, "io.txt");
@fileAttributes = stat (FH);
close (FH);
foreach $attribute (@fileAttributes){
   print "==> $attribute\n";
}

@accessTime = localtime($fileAttributes[8]);
@modifyTime = localtime($fileAttributes[9]);
@inodeTime = localtime($fileAttributes[10]);
$month = $accessTime[4] + 1;

print "Access time = $accessTime[2]:$accessTime[1]:$accessTime[0], $month/$accessTime[3]/$accessTime[5]\n";
$month = $modifyTime[4] + 1;
print "Modify time = $modifyTime[2]:$modifyTime[1]:$modifyTime[0], $month/$modifyTime[3]/$modifyTime[5]\n";
$month = $inodeTime[4] + 1;
print "Inode time = $inodeTime[2]:$inodeTime[1]:$inodeTime[0], $month/$inodeTime[3]/$inodeTime[5]\n";








Related examples in the same category

1.Getting Information on a File
2.Get return value from stat function
3.Get the file size
4.Get the length of a file
5.File statistics returned from the stat command
6.File stats
7.Checks the permissions of a file
8.Call stat function from file handle
9.Lists files in directory; then gets info on files with stat