regex - 用于替换计数的 Perl 正则表达式变量

Question

对于像这个这样的简单用例

#!/usr/bin/perl
my $text = "A choice between ASCII and UTF8 is simple";
$text =~ s/[[:upper:]]+/?/g;

我需要确定是否进行了替换。我希望找到一个内置变量来告诉我这一点。似乎有很多与正则表达式相关的可用变量(例如 $1、... $'、$&、@+、@- 等)，但我还没有找到一个可以简单地告诉我是否进行了替换或不是或更换次数等。

当然，我可以保存原始字符串并与结果进行比较，但如果此统计信息已经以某种方式可用，我会使用它。

Answer 1

s/// 运算符(没有 /r 标志)返回完成的替换次数，所以你可以简单地做

if ($text =~ s/[[:upper:]]+/?/g) {
    # at least one replacement was done
} else {
    # nothing changed
}

Reference