Perl s///g 中发生了多少次替换？

Question

小例子：

perl -e '$s="aaabbcc";$c=()=$s=~/a/g;print"$c\n$s\n"' (m //g) 输出

3
aaabbcc

而 perl -e '$s="aaabbcc";$c=()=$s=~s/a/x/g;print"$c\n$s\n"' (s///g) 输出

1
xxxbbcc

我想同时做这两件事，而不必先匹配：替换并知道替换的数量。显然，as///g 不会返回标量上下文中的替换数量——与 m//g 对匹配项所做的不同。这可能吗？如果是，怎么办？

perlre、perlvar 和 perlop 没有提供任何帮助（或者我只是找不到它）。

Answer 1

s/// 确实返回标量上下文中进行的替换数。来自 perlop （添加了强调）：

s/PATTERN/REPLACMENT/msixpogce
在字符串中搜索模式，如果找到，则替换该模式
带有替换文本的模式，返回的数量
进行了替换。否则返回 false（具体来说，
空字符串）。

您的问题是您没有在标量上下文中调用 s/// 。您在列表上下文中调用它，然后在标量上下文中评估分配（到空列表）。标量上下文中的列表赋值返回表达式右侧生成的元素数。由于 s/// 返回单个值（在列表和标量上下文中），因此即使 s/// 没有执行任何操作，元素数量也始终为 1 。

perl -E "$s='aaabbcc'; $c=()=$s=~s/x/y/g; say qq'$c-$s'"  # prints "1-aaabbcc"

要在标量上下文中调用 s///，请省略 =()= 伪运算符。

perl -E "$s='aaabbcc'; $c=$s=~s/a/x/g; say qq'$c-$s'"  # prints "3-xxxbbcc"