Re: Using Perl Regex to find & replace large chunks in code

in reply to Using Perl Regex to find & replace large chunks in code

As a standalone script

local $/;

my $search  = <>;
my $replace = <>;

#local $^I = '';  # No backups.
local $^I = '~';  # Make backups.
while (<>) {
   s/\Q$search/$replace/g;
   print;
}
[download]

Usage:

$ script.pl - - *.cstol
search
search
search
^D
replace
replace
replace
^D
[download]

$ script.pl search.txt replace.txt *.cstol
[download]

You can tweak $search's content as the linked node did if you so desire (but get rid of \Q if you do).

Comment on Re: Using Perl Regex to find & replace large chunks in code Select or Download Code

In Section Seekers of Perl Wisdom