Perl:如何在分组变量后插入数字?

phi*_*ogg 3 regex perl

我在Perl one liner中有以下替换:

perl -pi.bak -e 's/(.*?\t.*?\t.*?\t.*?\t.*?\t.*?\t.*?\t.*?\t.*?\t)/$123424977\t/g if $. <= 200'
Run Code Online (Sandbox Code Playgroud)

问题是我想在分组正则表达式捕获的文本之后插入数字23424977 (.*?\t.*?\t.*?\t.*?\t.*?\t.*?\t.*?\t.*?\t.*?\t).

但是Perl认为我指的是团队$ 123424977!如何告诉Perl我想要组$ 1并在此之后插入文本23424977?

rua*_*akh 5

您可以使用花括号来明确地界定变量名 - ${1}而不是$1:

perl -pi.bak -e 's/(.*?\t.*?\t.*?\t.*?\t.*?\t.*?\t.*?\t.*?\t.*?\t)/${1}23424977\t/g if $. <= 200'
Run Code Online (Sandbox Code Playgroud)