regex - 在替换中操作正则表达式匹配

Question

我想将括号添加到与正则表达式匹配的第一个子字符串中。我试图通过使用 $1 变量来实现这一点，但是在尝试编译时出现错误。

我的错误在哪里，有没有更方便的方法来了解比赛的值(value)？

代码:

use strict;
use warnings;

print "Hello world!\n";
my $str = "a aa";

$str =~ s/a/\($1\)/;
print "$str \n";

错误:

Use of uninitialized value $1 in concatenation (.) or string 
     at /home/bc/projects/regex.pl line 8.

输出应该是:

(a) aa

Answer 1

您需要使用capturing parens在正则表达式中:

$str =~ s/(a)/($1)/;

注意:您不需要转义正则表达式特殊字符，例如 s/// 的 RHS(右侧)中的括号。