you can use File::Find module to traverse the directory.
I think this module is simulating the unix find command.
On Wed, Apr 23, 2008 at 10:58 PM, Siegfried Heintze (Aditi)
<[EMAIL PROTECTED]> wrote:
> I have directory names in the format of "yyyy-mm-dd_hh-mm-ss". Sometimes I
> want to delete all the non-empty directories that are from last week or
> earlier. Other times I want to delete all the directories that are over a
> week old.
>
> Is there a script out there already that does this?
>
> Assuming the answer is no, I started writing a script. Unfortunately, the
> following does not produce an error and does not work.
>
> $ perl -MFile::Tasks -e
> '(File::Tasks->new)->remove_dir("2008-03-11_15-42-58/");
>
> So how would you enumerate the directories, find the ones that are old
> (according to the above criteria) and delete them and their contents? What
> packages would you use?
> Thanks,
> Siegfried
>
>
>
>
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
