Pathologically Eclectic Rubbish Lister | |
PerlMonks |
Re^2: How to get the File creation dateby Marshall (Canon) |
on Aug 17, 2010 at 22:35 UTC ( [id://855640]=note: print w/replies, xml ) | Need Help?? |
Different file systems have different ways of dealing with "creation time". Normal Unix file systems do not have a concept of creation vs modification time at all. You can only get "last modified" time. Windows NTFS does have the concept of: creation time, last accessed time, and last modification time. see:
Windows file times. There is an API to modify an NTFS's file "creation time" - so it could be that although Windows has the "creation time" concept, it is not guaranteed that the time you get is really the "creation time" as anybody with the appropriate permissions could have modified that time! Whoa! Access to the Windows "creation time" requires the Win API and is not part of "standard Perl". So: some file systems track "creation time". Unix file systems are not one of them. Normally the "last modified" time is sufficient. And that's a good thing as that is all Perl allows you to get to with the standard built-in functions. But as a "nit" here, I point out that some filesystems do track creation time.
I think that the OP would do well by measuring the shortest of these parameters:
If you haven't read a file or modified it within X days, then I would say that it is a "candidate for deletion". Under this kind of a test, I don't see how when the file was originally created makes a difference. If it not being used or modified, then who cares? Implement something like the Windows Trash Folder. Instead of deleting a file outright, move it there and wait for Y days to see if anybody really misses it! If you don't get any complaints, then do a final deletion.
In Section
Seekers of Perl Wisdom
|
|