RE: [Perl-unix-users] Removing files older than 10 days from a directory

[Wagner, David --- Senior Programmer Analyst --- WGO]

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 started! You have to update the Global variable as it relates to -M otherwise you wonder why the files are not getting deleted. Got caught on that.

 

    Just something to watch out for.

 

Wags ;)

-----Original Message-----
From: Craig Sharp [mailto:[EMAIL PROTECTED]]
Sent: Friday, November 07, 2003 2:45 PM
To: [EMAIL PROTECTED]; [EMAIL PROTECTED]
Cc: [EMAIL PROTECTED]
Subject: RE: [Perl-unix-users] Removing files older than 10 days from a
directory

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 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 threadholds, alerting and
other such items that are beneficial in a commercial environment.  If
you have any questions about the script please feel free to e-mail me.

Travis

_______________________________________________
Perl-Unix-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs



**********************************************************
This message contains information that is confidential
and proprietary to FedEx Freight or its affiliates.
It is intended only for the recipient named and for
the express purpose(s) described therein.
Any other use is prohibited.
****************************************************************