perlquestion
kirk123
<p>
Hi
<br />
I am trying to update a text file. The error I am getting is:
<code>
Can't "next" outside a block at PersonalfrmList.pl line 59
</code>
Here a snippet of my code:
<code>
open(IN,"c:\\h\CSSCS\\bin\\scripts\\ListofFile.txt") || die "Can't open ListofFile.txt:$!\n";
@lines = <IN>;
close IN;
my $change_count = 0;
@lines = map{$change_count ++ if s/ORGANIZT-3FC930/CSSCS/sgi;$_ } @lines;
next unless $change_count;
open(OUT,">c:\\h\\CSSCS\\bin\\scripts\\ListofFile.txt")|| "Can't open file for writing:$!\n";
print OUT @lines;
close OUT;
</code><p>
Can someone tell me what is wrong with my script?<br />
---kirk
</p>
<p><small>20030811 Edit by [Corion]: Added formatting</small></p>