I have this script that recursed through a directory on a network drive and
it's subdirs flagging files based on a couple of params.
Firstly, I know this will be resource intensive. Is there a better way to do
this that is maybe not even a Perl solution?
Secondly, the script is failing to
On Aug 28, Kipp, James said:
I have this script that recursed through a directory on a network drive and
it's subdirs flagging files based on a couple of params.
Firstly, I know this will be resource intensive. Is there a better way to do
this that is maybe not even a Perl solution?
You want
Hello James,
Tuesday, August 28, 2001, Kipp, James [EMAIL PROTECTED] wrote:
KJ I have this script that recursed through a directory on a network drive and
KJ it's subdirs flagging files based on a couple of params.
KJ Firstly, I know this will be resource intensive. Is there a better way to do
Hi Maxim
Thanks so much for your help. Is this how the code should be before I test
it again.
---
use Cwd;
$log = 'c:\\temp\\chk_space.txt';
$path = 'dbm\\marketing_database_II';
open(LOG, $log) or die Can't open $log: $!;
print LOG These files are over 60 days old and over 50MB\n\n;
Hello James,
Tuesday, August 28, 2001, Kipp, James [EMAIL PROTECTED] wrote:
KJ Thanks so much for your help. Is this how the code should be before I test
KJ it again.
It depends of your needs. for example, in your log file you miss full
name of files.
a good example or educational purpose, but
script on Large Directory
Hello James,
Tuesday, August 28, 2001, Kipp, James [EMAIL PROTECTED] wrote:
KJ Thanks so much for your help. Is this how the code should
be before I test
KJ it again.
It depends of your needs. for example, in your log file you miss full
name of files.
a good
James == James Kipp [EMAIL PROTECTED] writes:
James Thanks so much for your help. Is this how the code should be before I test
James it again.
No, the code should be using File::Find, as was suggested earlier.
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
