find /path/to/dir -mtime +30 -exec rm '{}' \;
however in some cases you may want to use perl to do this. if removing
the files is part of a larger perl effort using the system or exec
function to call find could consume more resources than using native
perl calls. if you want to do it all in
Travis,
You hit the nail on the head. I need to do the same with DB2 logs.
Thanks,
Craig
>>> Travis Hoyt <[EMAIL PROTECTED]> 11/07/03 06:14AM >>>
find /path/to/dir -mtime +30 -exec rm '{}' \;
however in some cases you may want to use perl to do this. if removing
the files is part of a large
Title: RE: [Perl-unix-users] Removing files older than 10 days from a directory
### untested
my $dir = '/dir';
opendir(DIR,$dir) || die "Can't open $dir : $!\n";
my @files = readdir(DIR); # you may want to grep only certain files here
close(DIR);
foreach my $file(@files)
{
my $now
Thanks, I will give it a try!
>>> Peter Eisengrein <[EMAIL PROTECTED]> 11/07/03 07:47AM >>>
### untested
my $dir = '/dir';
opendir(DIR,$dir) || die "Can't open $dir : $!\n";
my @files = readdir(DIR); # you may want to grep only certain files
here
close(DIR);
foreach my $file(@files)
{
my
Here's our version for Oracle being backed up by Veritas NetBackup.
I tried to just cut and paste this but it isn't keeping the tabbing right. I'll upload it as a text attachment.
Our version is more complicated than previous versions offered but there is a great deal more accounted for with t
Travis,
The attachment did not come through. Please try again or you can just
send it by email.
Thanks,
Craig
>>> Travis Hoyt <[EMAIL PROTECTED]> 11/07/03 01:57PM >>>
Here's our version for Oracle being backed up by Veritas NetBackup.
I tried to just cut and paste this but it isn't keeping
Title: RE: [Perl-unix-users] Removing files older than 10 days from a directory
Here is a little something I threw together awhile ago to clean up old log and data files.
It's not fancy, but it works okay for me.
-- This call would remove files older than 30 days from the $root/log and $root
Title: RE: [Perl-unix-users] Removing files older than 10 days from a directory
if ( int( -M
$file) > $days || $days == 0 )
The only thing to be careful is if you
decide to make this a service or constantly running script, using the -M is
the point in time that the script starte
