>>>>> "Norman" == Norman Zhang <[EMAIL PROTECTED]> writes:
Norman> Hi,
Norman> I've /share_folder with many user folders.
Norman> e.g.,
Norman> /share_folder/user_a
Norman> /share_folder/user_b
Norman> ...
Norman> I would like to scan all user folders for files that are older than 30
Norman> days and delete them. Is this doable with Perl?
Simple, when you use my module, and understand find(1) syntax:
use File::Finder; # from the CPAN
unlink File::Finder->atime('+30')->in(glob "/share_folder/user_*");
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<[EMAIL PROTECTED]> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
