Beware Newbie Q: Quick script to search and replace.

[awolff01]

Hello All,

I am a newbie. I need a quick script to read in a file and replace certain text with new text. Is it possible to read and write to the same file?

My current script has this in it. but when I ran it it did not do squat!!

=======script code========
open(CS, "$currscript"
while(<CS>) {
$_ =~ s/QAS/MSP6GA/;
}
===========================

Or do I need to write out to another file with the replaced text?

Thanks in Advance!

Alex-

 

[TomThumbKOP]

The easiest way IMO is the write out to a temp file then destroy the old file and rename the temp.

 

[badco]

Try this and modify it for what you are doing:

use strict;
my $db = 'yourfilehere.txt';
open(DATA, "$db") || die "Can not open: $!\n";
my @dat = (<DATA>);
close(DATA);
open(DATA, &quot;>$db&quot;) || die &quot;NO GO: $!\n&quot;;
                                     
foreach (@dat)
{
	s/QAS/MSP6GA/gi;
	print DATA $_;  #output to file
}
close(DATA);

=============
Bad Company Music
=============