Replacing text in a file using perl script

[Patricia Samuel]

Hi All,

I need to replace some value in config file using perl script. I used this code -

open (IN, "default.properties");

@file = <IN>;

seek IN,0,0;

foreach $file (@file){
$file =~ s/ftp='pass'/ftp='pass1'/g;
print IN $file;
}
close IN;

  

When i print $file , it shows me the changed rows but it does not write it to a file. Please suggest.

Regards,
Patricia samuel

[James Sabre]

Since your are reading the whole file into memory you can safely re-open the file and write to it i.e.

#!/usr/bin/perl
$file = "default.properties";
open (IN, $file) || die "Cannot open file ".$file." for read";     
@lines=<IN>;  
close IN;

open (OUT, ">", $file) || die "Cannot open file ".$file." for write";
foreach $line (@lines)
{  
   $line =~ s/hello/hello hello hello/ig;  
   print OUT $line;  
}  
close OUT;