Asad wrote: > All: > I need to write a script to delete 4 hours old files and > directories on Windows. I am planning to use Perl to accomplish > this. I understand the "-M" would delete at least a day old files, > but is there a way to delete 4 hours old files and directories. Thank > you.
The -M operator returns a floating point value, so you can compute 4 hours as: $hours = (-M $somefile) * 24; if ($hours > 4) { ...file is more than 4 hours old } You need to be careful using -M in a daemon because the age is base on the script start time and not the current time. If that's a concern, you can make -M use current time by doing this: $hours = do { local $^T = time; (-M $somefile) * 24 }; or you can use stat() insteamd of -M like this: $hours = (time - (stat $somefile)[9]) / 3600; -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>