patternmatching in file

[kriz4321]

Hi all

code::
open (FH1, "list.txt") || die "Can't find the data file";
print "Enter the name you need";
$input = <STDIN>;
while(<FH1>)
{
$x =0;
$data1 = $_;
if($_ =~/load/)
{
$x = 1;
print $data1;
}
}
if($x)
{
print "No match found ";
}
close(FH1);



if the contents of the list file is
load=ram
load=sam
when I run my perl script it should ask for a input if I give the Input as
" test" then the contents of the file should be changed as

load=test
load=test

can anyone tell me how to do this,I have given the code I did so for..
Thnks in advance

[KevinADC]

post your code and please use the code tags. Also see this thread:

http://www.thescripts.com/forum/thread591710.html

[docsnyder]

Try this substitution:

$_ =~ s/^(load=).*$/$1$input/;

Greetz, Doc

[KevinADC]

Try this substitution:
Greetz, Doc

Unfortuneately, that will have no affect on the file even though the regexp is correct.

[ghostdog74]

you can redirect the output to another file to make the changes

perl yourfile.pl > output

or define output file handle

....
 open FILE, "> $filename";
 print $data1 FILE;
...