in reply to Updating a text file
Kirk,
I *think* what you're trying to do is not rewrite the file unless it changed.
If that's the case, then instead of your "next" line, do
if($change_count) { open(OUT,">c:\\h\\CSSCS\\bin\\scripts\\ListofFile.txt") || "Can't op +en file for writing:$!\n"; print OUT @lines; close OUT; }
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Re: Updating a text file
by crouchingpenguin (Priest) on Aug 12, 2003 at 14:54 UTC |
In Section
Seekers of Perl Wisdom