CODEWITHSUNDEEP
regexperl
Andreas Grech
Andreas Grech

Reputation: 107950

Multiple substitutions with a single regular expression in perl

Say I have the following in perl:

my $string;
$string =~ s/ /\\ /g;
$string =~ s/'/\\'/g;
$string =~ s/`/\\`/g;

Can the above substitutions be performed with a single combined regular expression instead of 3 separate ones?

Upvotes: 1

Views: 2622

Answers (3)

Ether
Ether

Reputation: 53966

Although it's arguably easier to read the way you have it now, you can perform these substitutions at once by using a loop, or combining them in one expression:

# loop
$string =~ s/$_/\\$_/g foreach (' ', "'", '`');

# combined
$string =~ s/([ '`])/\\$1/g;

By the way, you can make your substitutions a little easier to read by avoiding "leaning toothpick syndrome", as the various regex operators allow you to use a variety of delimiters:

$string =~ s{ }{\\ }g;
$string =~ s{'}{\\'}g;
$string =~ s{`}{\\`}g;

Upvotes: 2

Eugene Yarmash
Eugene Yarmash

Reputation: 149796

Separate substitutions may be much more efficient than a single complex one (e.g. when working with fixed substrings). In such cases you can make the code shorter, like this:

my $string;    
for ($string) {
    s/ /\\ /g;
    s/'/\\'/g;
    s/`/\\`/g;
}

Upvotes: 4

mikej
mikej

Reputation: 66263

$string =~ s/([ '`])/\\$1/g;

Uses a character class [ '`] to match one of space, ' or ` and uses brackets () to remember the matched character. $1 is then used to include the remembered character in the replacement.

Upvotes: 9

Related Questions