in reply to Aging Script
try this...
that should work... maybe replace unlink with print to test it first ;)$cutoff = time() - 31*24*60*60; while(</dir/to/read/*>) { unlink $_ if (stat $_)[10] < $cutoff; }
- Ant
- Some of my best work - Fish Dinner
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Re: Aging Script
by Seema (Novice) on Aug 09, 2001 at 01:16 UTC |
In Section
Seekers of Perl Wisdom