正则表达式 – 正则表达式中的Perl正则表达式

我想问一下是否可以在替换匹配表达式的RHS中使用“e”修饰符放入另一个正则表达式.

例如,我想用相同数量的“ – ”替换$foo中存储的任何单词,不区分大小写.

例如：

$str =~ s/($foo)/$temp = $1; $temp ~= s/./-//gie;

但是在编译时它经常会出现语法错误

$str =~ s/($foo)/$temp = $1; $temp = "---"/gie;

确实有效.

我想我没有正确地逃避斜线,任何想法？

解决方法

你当然需要e修饰符才能使用

$str = 'banana';
$foo = 'na';
$str =~ s/$foo/$&=~s#.#-#gr/ge;
print $str;

见online Perl demo

请注意,外部正则表达式使用/ regex分隔符,而内部正则表达式包含不同的分隔符(您可以在此处使用您最喜欢的两个).

e修饰符对外部模式是强制性的,您还需要将r修饰符传递给内部修饰符以避免修改只读值问题.

另请注意,在Perl v.5.20之前,你最好避免使用$&并用(…)捕获组包围整个模式：

$str =~ s/($foo)/$1=~s#.#-#gr/ge;
          ^    ^ ^^