Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

Re: Checking if file has been modified in last 7 days using stat

by friedo (Prior)
on Mar 17, 2005 at 22:54 UTC ( #440576=note: print w/replies, xml ) Need Help??


in reply to Checking if file has been modified in last 7 days using stat [9]

First, since you're only getting one element from stat, you might as well stick it in a scalar instead of an array. To see if a file was modified more than seven days ago, just get the current time and compare. 

my $mtime = (stat $tapes)[9];
my $now = time;
if( $mtime < ( $now - 604800) ) { 
    print "$tapes is more than seven days old.\n";
}

[download]

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://440576]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (3)
As of 2023-09-30 13:08 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found
    Notices?