Re: Advanced replace function

[kyle]

in reply to Advanced replace function

You may be looking for the /g option to s///:

my $str="abc t[poop1] def [doop2] [woop3] xyz";
$str =~ s/\[.*?\]/~~/g;
print "$str\n";
__END__
abc t~~ def ~~ ~~ xyz

[ikegami]

There was nothing about newlines being disallowed in the brackets. The following is faster and more likely to match correctly:

s/\[.*?\]/~~/sg

But that's risky, especially if you use it a larger pattern. The /.*?/ could match a "[" or a "]". That's obviously undesirable. The following pattern avoids that problem:

s/\[[^\[\]]*\]/~~/g;