Hi

I'm looking for a perl script to remove in a directory
all folders ( with different names ) older then 14 days.

kind regards
cccc

I don't have the time to write it all up but here are some hints and some code.

#!/usr/bin/perl

use strict;
use File::stat;
use POSIX;

my $stat_obj = stat("stattest.pl");

print "mtime: " . $stat_obj->mtime() . "\n";
print "Formatted: " . strftime("%D", localtime($stat_obj->mtime())). "\n";


not sure if this runs should ? Also you don't have to use the File::stat obj I just like that interface better than some big array that you get using the standard perl stat funtion. For more info try
perldoc File::stat
perldoc -f stat

-Matt

must it be perl?

what about:

find . -type d -ctime +14 -exec rm -f {} \;

(maybe -atime ?)

thanks !

greetings
cccc

That should work.
rm -f

will delete a directory.


billy

to delete not empty directories I did:

find /var/tmp -type d -ctime +14 -exec rm -rf {} \{\} \;

kind regards
cccc