Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

Re: Posting file's modification date?

by Eradicatore (Monk)
on Jun 13, 2001 at 00:02 UTC ( [id://87920]=note: print w/replies, xml ) Need Help??


in reply to Posting file's modification date?

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

Replies are listed 'Best First'.
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]

In Section Seekers of Perl Wisdom

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://87920]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others about the Monastery: (2)
As of 2024-04-20 06:04 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found