问如何在Perl中用一个空格替换多个空格？

EN

请改用$data =~ s/ +/ /;。

解释：

tr是translation运算符。需要注意的重要一点是，正则表达式修饰符不适用于翻译语句(除了-，它仍然指示一个范围)。所以当你使用

你说的是“获取字符的每一个实例tr/ +/ / +，并将它们转换成一个空格”。换句话说，tr将空格和+视为单个字符，而不是正则表达式。

演示：

$data = "What    is the STA++TUS of your mind right now?";

$data =~ tr/ +/ /;

print $data; #Prints "What    is the STA  TUS of your mind right now?"

使用s实现了您想要的功能，即“匹配任意数量的连续空格(至少一个实例)，并将其替换为一个空格”。您可能还想使用类似于

如果您希望替换发生在多个位置，则为s/ +/ /g; (g表示全局应用)。