Replace part of a file

[sun9]

How do I go about replacing a part of a file with new content say just one line with a new line?

Thanks.

 

[MillerH]

The easiest way is to use Tie::File.

http://perldoc.perl.org/Tie/File.html

 

[KevinADC]

I like Tie::File too. Here is another way, although this example is not replacing an entire line, it could:

my $filename = 'file.txt';
my $find = 'bar';
my $replace = 'foo';
replace($find,$replace,$filename);

sub replace {
   local $^I   = '.bak';
   my $find    = quotemeta(shift) or return(0);   
   my $replace = shift or return(0);
   local @ARGV = shift or return(0);;
   while(<>){
      s/$find/$replace/g;
      print;
   }
   close;  
   return(1);
}

- Kevin, perl coder unexceptional!