在perl中使用单个正则表达式进行多次替换

Question

说我在perl中有以下内容:

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

上述替换可以使用单个组合正则表达式而不是3个单独的正则表达式执行吗？

Answer 1

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

使用一个字符类 [ '`]来匹配一个空格'或',并使用括号()来记住匹配的字符.$1然后用于在替换中包括记住的字符.