Mega Code Archive

 

Categories / Perl / File

 

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";