Posting file's modification date?

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: Posting file's modification date? by tachyon (Chancellor) on Jun 13, 2001 at 00:01 UTC
You will find a discussion here Find and check timestamps of files. The answer is basically `$mod = (stat "$path/$filename")[9]; # this prints result in usual date format # like -> Tue Jun 12 23:50:10 2001 print scalar localtime $mod;` [download] If you use Super Search you will find heaps of examples on this topic floating around the monastery. This is also in the Perl FAQ at How do I get a file's timestamp in perl?. If you have not discoverd the Perl FAQ you are missing out on heaps of goodies. cheers tachyon	[reply] [d/l]
Re: Posting file's modification date? by Eradicatore (Monk) on Jun 13, 2001 at 00:02 UTC
You can use -M to find out the age of the file since the last modification. This is age in days like 6.5321421 etc. `$age = -M $file;` [download] Justin Eltoft "If at all god's gaze upon us falls, its with a mischievous grin, look at him" -- Dave Matthews	[reply] [d/l]
Re: Re: Posting file's modification date? by blakem (Monsignor) on Jun 13, 2001 at 10:15 UTC
There is a mod_perl gotcha here... The file test operators calculate their deltas based on the "scripts" starting time. Under normal situations this works fine, but with mod_perl it can cause problems, since the starting time may have been weeks ago. (leading to values such as "This file was modified -5.24 days ago") Resetting the $^T variable to the current time will fix this. `$^T = time(); $age = -M $file;` [download] Of course, if it is straight CGI, you don't need to worry about it. -Blake	[reply] [d/l]