How to move all files in a directory not accessed in last hour.

[auto]

I am new to Perl and can list all files in a directory. But I am having problems using the Date::Calc module to list all files in a directory and move only the files that have not been accessed in over 1 hour. I am trying to do this on a NT Server. Any help or suggestion would be greatly appreciated.....Thanks

 

[PaulTEG]

You could try using stat to get the file information.
The ninth element in the list is the modified time, and is in the number of seconds since the epoch.

If you take the localtime, convert to seconds, subtract the number of seconds (3600) and use this value to compare against the modified time.

$now = time();
$now-=3600;
if $mtime > $now {file accessed within 1 hour }

HTH ;P

 

[auto]

Thank You PaulTEG your information solved my problem.