perl - 用空字符串替换：意外结果

Question

为什么两个打印的数字不同？

#!/usr/bin/env perl
use warnings;
use 5.10.1;

my $sep = '';
my $number = 110110110110111;

$number =~ s/(\d)(?=(?:\d{3})+\b)/$1$sep/g;
say "A: <$number>";

$number =~ s/\Q$sep\E//g;
say "B: <$number>";

输出：

A: <110110110110111>
B: <11111111111>

Answer 1

引用man perlop的话：

如果模式计算结​​果为空字符串，则使用上次成功执行的正则表达式。

尝试在第二次替换之前插入一个成功的正则表达式匹配以查看发生了什么：

(my $foo = '1') =~ s/1/x/; # successfully match “1”
$number =~ s///g;          # now you’re deleting all 1s
say "B: <$number>";        # <0000>

我会说这应该被弃用并被警告use warnings。很难看到好处。