这个 perl 替换出了什么问题？

Question

my $test = "_.4.1\n";
print $test;
my $docid=4;
$test =~ s/_.$docId.1/_.$docId.0/gm;
print $test

我希望看到：

_.4.1

_.4.0

但我得到：

_.4.1

_.4.1

Answer 1

您的正则表达式中的 $docId 中有一个大写的 I，但用小写的 i 声明它。 $docid 不被视为与 $docId 相同的变量。 Perl 区分内部变量名的大小写。

您应该始终使用

use strict;
use warnings;

To 防止像这样的简单错误。

另请参阅：为什么使用严格和警告？

Answer 2

Perl 5.10 有一个很好的功能可以让这个问题变得更容易。替换运算符模式部分中的 \K 告诉它不要替换 \K 之前的任何内容。这样，您可以使模式找到您想要更改的位，但随后仅替换未更改的部分：

use v5.10;
use strict;
use warnings;

my $test = "_.4.1";
say $test;

my $docId=4;
$test =~ s/_\.$docId\.\K1/0/;

say $test;

我删除了 /g 和 /m 标志，因为它们在您的示例中不执行任何操作。

如果您还没有使用 v5.10（它是现在不受支持的版本之一），您可以通过正向后查找获得相同的效果（只要它是恒定宽度模式）：

use strict;
use warnings;

my $test = "_.4.1";
print "$test\n";

my $docId = 4;
$test =~ s/(?<=_\.$docId\.)1/0/;

print "$test\n";

Answer 3

尝试在 perl 中使用 -w 选项

_.4.1
Use of uninitialized value $docId in regexp compilation at test.pl line 4.
_.4.1


$docid != $docId;