You are just opening a file for reading instead of writing.

try something like this (there are a zillion ways to do it): 

open (FH, "file.html");
my $find = quotemeta('here.company.com/pagedir'); 
## you can use quotemeta like this.  
my $replace = 'there.company.com'; 
## also it is better to define these outside of your loop
my $outstring;   
## this is a temp variable
while (<FH>) {  
    my $string = $_;
    $string =~ s/$find/$replace/g;
    $outstring .= $string;  
    ## this concatenates $string to $outstring
}
close (FH);
open (FH, ">file.html");  
## > means open new file for writing
print FH $outstring;  
## a plain 'print' prints to STDOUT.  you want to print to 
## your filehandle instead.
close (FH);

[download]
you _may_ want to change the line above to:open(FH, ">file.html.bak"); or something just for safety purposes.

umm, yes. i hope this explains things. no one yell at me if this is too obtuse.

chiller

In reply to Re: Read from a file and replace by chiller
in thread Read from a file and replace by toddler

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.