小例子：

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

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

我想同时做这两件事而不必先匹配：替换并知道替换的次数。显然，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。

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