Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Re: How can I get -M to work properly?

by azatoth (Curate)
on Jun 20, 2001 at 19:33 UTC ( [id://90039]=note: print w/replies, xml ) Need Help??


in reply to How can I get -M to work properly?

It seems it would be much easier to just do -
if ( (-M $file) > 1 ) { # if file is over a day old do_unlinkSubHere($file); # as stated below, include the whole path i +n $file } else { print "Today, I will spare your life, young $file...\n"; }
This strikes me as more simple than assigning a variable with the age etc...If you want to look at file tests in action, have a look at this.

Azatoth a.k.a Captain Whiplash

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

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://90039]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others having a coffee break in the Monastery: (3)
As of 2024-03-29 06:30 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found