Hi Jonathan! On Thursday 02 July 2009 08:13:20 Jonathan Swartz wrote: > My points about "find ... | xargs rm -f" apply as well to a simple > File::Find. Namely, it doesn't have the safety checks, directory > pruning, or reporting. > > I am using File::Find::Object in the library.
Since I'm the File::Find::Object maintainer, I'm: 1. Glad you're using it in this case. 2. Interested in why you've chosen it instead of File::Find. 3. If you have any complaints/suggestions/comments about File::Find::Object , I'd be interested in hearing them. Regards, Shlomi Fish > > On Jul 1, 2009, at 5:08 PM, Dana Hudes wrote: > > True to some extent. You do have to actually invoke it to build your > > list and then unlink the files on the list. This seems fairly > > trivial. Am I missing something? > > Sent from my BlackBerry® smartphone with Nextel Direct Connect > > > > > > From: Bill Ward > > Date: Wed, 1 Jul 2009 16:19:20 -0700 > > To: <dhu...@hudes.org> > > Subject: Re: module/script to clean up old files and prune empty > > directories > > > > File::Find can be used to write such a script, but doesn't by itself > > address this issue. > > > > On Tue, Jun 30, 2009 at 6:15 PM, Dana Hudes <dhu...@hudes.org> wrote: > > File::Find::Perl > > ------Original Message------ > > From: Jonathan Swartz > > To: module-authors@perl.org > > Sent: Jun 30, 2009 7:59 PM > > Subject: module/script to clean up old files and prune empty > > directories > > > > At various places around our system we want to clean up files older > > than x, and sometimes prune empty directories. Naturally we have to be > > careful doing this lest we accidentally blow away far too many of the > > wrong files. > > > > I'm thinking about a Perl module and accompanying script with this > > interface: > > > > cleanup_files.pl --age=age --dir=dir --name=name [--dry-run] [-- > > prune-empty-dirs] > > > > where age can be specified as "1h", "2day", etc., and name is a > > required glob pattern, and dir is checked to make sure it is > > sufficiently deep (e.g. can't use /). --dry-run tells you what would > > be deleted. --prune-empty-dirs also causes empty dirs to be pruned. > > The script would report at its end how many files and directories were > > removed. > > > > The idea is to have a convenient, but safe, one-liner to put in a cron > > for each directory that needs periodic cleaning. > > > > In the past we've done the old "find ... | xargs rm -f", but it > > doesn't have the safety checks, directory pruning, or reporting. > > > > Does anyone else think this is (mildly) valuable? Am I reinventing the > > wheel, in terms of Perl libraries or other Unix utilities besides > > basic find? > > > > Thanks > > Jon > > > > > > > > Sent from my BlackBerry® smartphone with Nextel Direct Connect -- ----------------------------------------------------------------- Shlomi Fish http://www.shlomifish.org/ What does "Zionism" mean? - http://xrl.us/bjn8u God gave us two eyes and ten fingers so we will type five times as much as we read.