Hi , I'am trying to update a

[kirk124]

Hi ,

I'am trying to update a text file. But somehow it does not work. I gets the following error:

Can't "next" outside a block at PersonalfrmList.pl

Here a snippet of my code:

open(IN,"c:\\h\\CSSCS\\bin\scripts\\ListofFile.txt&quot|| die "Can't open ListofFile.txt for update:$!\n";
@lines =<IN>;
close IN;

my $change_count = 0;
@lines = map {$change_count++ if s/&quot;cat&quot;/&quot;dog&quot;/sgi; $_ } @lines;
next unless $change_count;

open(OUT,&quot;>c:\\h\\CSSCS\\bin\\scripts\\ListofFile.txt&quot || &quot;can't open file for writing: $!\n&quot;;
print OUT @lines;
close OUT;


Can anyone tells me what I did wrong?

-thanks kirk124

 

[duncdude]

Can you explain more precisely what it is that you are trying to do?

Duncan

 

[PaulTEG]

Kirk,

What's this bit supposed to do?

my $change_count = 0;
@lines = map {$change_count++ if s/"cat"/"dog"/sgi; $_ } @lines;
next unless $change_count;

==Paul

 

[espar]

i think you would find the nice perl func.

foreach $line (@lines) {
#do stuff with $line
last if #your dog replace
}

the easiest way to iterate your array.

print your array back over the file handle
trunc file, close.
done.