regex - perl:通过分组搜索和替换

Question

我正在尝试使用 perl 命令行 (perl -i.bak -ape) 更新 assemblyinfo 文件中的版本，我在想(显然是错误的)s/\d+\.\d+\.(\d+).(\d+)/5.1/ 只会替换分组，但实际上它替换了整个版本。这就是我需要的。

OLD=1.0.0.0
NEW=1.0.5.1

Answer 1

您可以使用\K 删除您不想替换的部分(保留所有内容直到\K)。像这样:

s/\d+\.\d+\.\K\d+\.\d+/5.1/

如果您的 Perl 版本不支持 \K(旧)，您可以使用像这样的捕获组:

s/(\d+\.\d+)\.\d+\.\d+/$1.5.1/

也为你转义了 .，如果你没有 . 匹配任何字符(除了没有 /s 的新行) .