I know this doesn't fully answer you question but I'm wondering, do you mean files 
that your users haven't accessed in 30 days?  What if they are using it like once a 
week?

I'm reading through the "Learning Perl 3rd Edition" and on page 159 there are a number 
of file tests available.  If your users are accessing a file regularly (with in the 30 
days lets say) then I would recommend using the -A option when testing the file(s).  
It checks access age measured in days.

If you simply want to remove the files regardless of whether they are accessed 
regularly or not, perhaps the module File::Basename will meet your needs.  Just a 
thought
> Hi,
> 
> I've /share_folder with many user folders.
> 
> e.g.,
> 
> /share_folder/user_a
> /share_folder/user_b
> ...
> 
> I would like to scan all user folders for files that are older than 30 
> days and delete them. Is this doable with Perl?
> 
> Regards,
> Norman
> 
> 
> -- 
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> <http://learn.perl.org/> <http://learn.perl.org/first-response>
> 
> 

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>


Reply via email to