Replacing word in file

[bretttt]

I have read in a file to @file
i need to replace the word "cat" with word "dog".
Not literally lol

thanks.

 

[duncdude]

open (INFILE, &quot;< cat.txt&quot; # < = input
open (OUTFILE, &quot;> dog.txt&quot; # > = output

while (<INFILE>) { # loop over the input 'cat.txt' file
print &quot;before: $_&quot;;
s/\bcat\b/dog/g; # substitute 'cat' with 'dog' (\b = word boundary)
print OUTFILE; # print this change to the 'dog.txt' outfile
print &quot; after: $_&quot;;
}

close OUTFILE;
close INFILE;


Kind Regards
Duncan

 

[zvrcvm]

open (FILE, &quot;<file.txt&quot;
flock (FILE, 2);
undef ($/);
$cont = <FILE>;
close FILE;
$cont =~ s/cat/dog/g; #include boudary if it's the case
open (FILE, &quot;>file.txt&quot;
print FILE $cont;
flock (FILE, 8);
close FILE;

try this too

D.

Masochist: Windows programmer with a smile.