如何在正则表达式中将$1与数字连接起来

$s =~ s/(id=")(".*)/$1123$2/;  # Use of uninitialized value $1123 in concatenation (.) or string

虽然你预计它会替换1美元,但perl认为它是1123美元的变量. Perl无法知道你的意思是1美元.因此,您需要通过将变量指定为${1}来将变量限制为$1：

$s =~ s/(id=")(".*)/${1}123$2/;

在脚本的顶部包含以下内容始终是个好主意.它们将为您节省大量时间和精力.

use strict;
use warnings;

例如,运行包含上述模块的脚本会导致错误消息：

Use of uninitialized value $1123 in concatenation (.) or string at /tmp/test.pl line 7.

(忽略报告的脚本名称和行号.)它清楚地说明了perl的预期.

使用look-behind和look-ahead断言的另一种方法：

$s =~ s/(?<=id=")(?=")/123/;