Tony Esposito wrote:
> Fellow Perl neophytes ( and non-neophytes),
> I need a little clarification. I am trying to remove files that are
> greater that 24 hours old. The code snippet below is in a 'while'
> loop that steps through a directory, yet it seems not to work - no
> files are removed no matter what their 'age' ( i.e., their creation
> time ). I have stepped through the code via the Perl debugger and
> know the code is being executed.
>
> unlink $file unless -C $file < 1;
-C is not for creation, but for inode-change time
use -M which is last file modification time.
If you use as a daemon, then you will need set $^T otherwise this is set to
the startup of the script. Happened to me and couldn't understand why nothing we ever
deleted.
Wags ;)
>
>> Anthony (Tony) Esposito
>> Senior Technical Consultant
>> Inovis(tm)
>> 2425 N. Central Expressway, Suite 900
>> Richardson, TX 75080
>> (972) 643-3115
>> [EMAIL PROTECTED]
**********************************************************
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.
****************************************************************
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
