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

How many substitutions took place in a Perl s///g?

小例子：

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

$s\

"' (m//g) 输出

3

aaabbcc
1

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

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

$s\

"' (s///g) 输出

3

aaabbcc
1

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

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

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

s/// 确实返回在标量上下文中进行的替换次数。来自 perlop(强调添加)：

s/PATTERN/REPLACEMENT/msixpogce

Searches a string for a pattern, and if found, replaces that

pattern with the replacement text and returns the number of

substitutions made. Otherwise it returns false (specifically,

the empty string).

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

3

aaabbcc
1

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

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

3

aaabbcc
1

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