On Thu, 30 Oct 2003 09:45:58 -0500, Jimstone77 wrote:
> open(OLD,">$old") or die "Can't Open File: $!";
> flock OLD, 2;
> open(NEW,$new) or die "Can't Open File: $!";
> flock NEW, 2;
> while (<OLD>) {
> if ($_ =~ /NO_EMAIL/) {
> $count++;
> }
> else {
> print NEW $_;
> }
> }
> close(NEW) or die "Can't Close File: $!";
> close(OLD) or die "Can't Close Old: $!";
First of all: Post your _actual_ code. The code above won't even
compile, and it's really easy to see (or find out) why.
Secondly, you're trying to write to a file you opened for reading.
--
Tore Aursand <[EMAIL PROTECTED]>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
