regex - 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

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

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

Answer 1

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///什么也没做。

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"