Re: file date

my $file;

if (-M $file == 7) # -M file test op checks for last modification.  Fo
+r more see Camel Book, Page 85 
{
print "File is 7 days old\n";
}
[download]

It's easy, mm-kay?

Update: Bah! Arturo wins again! Eventhough, he showed how to find out if the file is greater than 7, when the question clearly asks for equal to 7. Hee Hee! (:P)

Azatoth a.k.a Captain Whiplash

Make Your Die Messages Full of Wisdom!
Get YOUR PerlMonks Stagename here!
Want to speak like a Londoner?

Comment on Re: file date Download Code

Replies are listed 'Best First'.
(stephen) Re: Re: file date by stephen (Priest) on Jun 11, 2001 at 22:15 UTC
azatoth is technically correct, but remember that `-M` doesn't output integers. An example from my box: `$ perl -e 'print -M $ARGV[0], "\n"' foo.pl 21.7745138888889` [download] So, `-M $file == 7` is true if and only if the file was created precisely 168 hours ago. :) (Excluding leapyears, etc.) So it's better to use the greater-than sign. If for some (unfathomable-to-me) reason you want files that were created seven days ago but not those create more than seven days ago, use `int( -M $file ) == 7`. Trying to compare integers with floating-point numbers can be confusing, since there's rarely an exact match. stephen	[reply] [d/l] [select]

Replies are listed 'Best First'.

(stephen) Re: Re: file date
by stephen (Priest) on Jun 11, 2001 at 22:15 UTC

azatoth

-M

$ perl -e 'print -M $ARGV[0], "\n"' foo.pl
21.7745138888889
[download]

-M $file == 7

int( -M $file ) == 7

Trying to compare integers with floating-point numbers can be confusing, since there's rarely an exact match.

stephen

[reply]
[d/l]
[select]