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