Re: Read from a file and replace


Perl: the Markov chain saw
	PerlMonks

Re: Read from a file and replace

by Rudif (Hermit)

Log in
Create a new user
The Monastery Gates
Seekers of Perl Wisdom
Meditations
Cool Uses For Perl
Obfuscation
Tutorials
Poetry
Reviews
Perl News
Donate
Recent Threads
Newest Nodes
Super Search
PerlMonks Discussion
What's New

on Aug 18, 2001 at 03:12 UTC ( #105826=note: print w/replies, xml )

Need Help??

in reply to Read from a file and replace

And there is the Slurp module - saves you a couple of lines

#!perl -w

use strict;
use File::Slurp;

my $find = quotemeta("here.company.com/pagedir");
my $replace = "there.company.com/";

my @lines = read_file "file.html";
foreach (@lines) {
    s/$find/$replace/g;
}
write_file "newfile.html", @lines;
[download]

Rudif