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